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1. SCOPE 

This document outlines in detail the format specification of download firmware file format used by Unisys 
to download firmware- 
Revision B enables the ability to determine precisely what type of download command sequence a device 
may require. The modifications for Revision B do not require a new utility for existing download files 
unless the utility checks for non-Wank data after the last Drive ID entry. 

This specification is not meant to define vendor unique tape loading or other non-Write Buffer command 
based loading methods 
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FIRMWARE DOWNLOAD FORMAT SPECIFICATION 



PURPOSE 

The purpose of this document is to yt»nrf»rriige the format of the firmware file which will simplify the 
task of reading the firmware file by the system application programs. 

In addition, by standardizing the format of the download firmware file, other future peripheral vendors 
with download features could be supported by Unisys with minimum modifications required to the system 
application program. This document supersedes internal document R210. 
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3. PROCEDURE 



SCSI Firmware Download File Fwm«t 

The firmware data will be provided on a DOS 3.5 " diskette (1.44MB) in binary format Physically, the 
media will contain 8K (1K-1024) byte contiguous records. The file shall have two logical record types: a 
header record which will contain all the information needed to interpret the content and perform some 
checks on the drives, and a body record which will contain all the firmware code. Physically, the first 8K 
record on the media will contain the header record. All other 8K records on the media will contain the 
firmware information. If the firmware size is not a multiple of 8K, then the last 8K record will contain 
extra storage (00 hex). 
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4. FORMAT 

4.1 File Header Record 

The 8, 192 byte finnware file header record format wilt be as follows: 



Field Name 


Size fin bytes) 


Offset 


Customer ID 


8 


0 


Size of header record 


8 


8 


Size of firmware data 


8 


16 


New firmware level 


4 


24 


Vendor ID 


8 


28 


Number of drive ID 


4 


36 


Number of replaceable firmware 
levels 


4 


40 


Firmware level #1 record 
(most recent) 


8 


44 


Firmware level #2 record 


8 


52 


... (until the last level) 


8 




Drive ID #1 


16 


,..+8 


Drive ID #2 


16 


... + 16 


... (until the last Drive ID #n) 


16 


... +... + 32 


MODE 


4 


... +...+48 


Mode-Start 


1 


... +... + 52 


Mode-Last 


1 


... +.., + 53 


Mode Offset Minimum Increment 


8 


... +... + 54 


Mode Offset Maximum Increment 


8 


... +... + 62 



Example Header 



0: 


UNISYS 00008192 


16: 


01048828 2 bFUJI 


32: 


TSU00010001* 


48: 


2 AM2488D M248 


64: 


8 MODE67000005 


80: 


1201048848 



Note: The * in the above Header example is supposed to be the value 00 In hex, but there is no way in 
the ASCII command set to denote that character for the purposes of the example. A Iso, the 
above example is for the non-default case of a non-Mode 5 download sequence. 
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Unused Bytes In the 8K Header 

Typically, there will be a significant amount of unused data at the end of the Header Record. This unused 
data should be set to 00 hex. Further it is recommended that at least 16 bytes after the last valid entry of 
header data be set to 00 hex to allow for a break point in the flow of header information. 

4.2 Field Definitions- Default 

The default case for the download sequence uses a single Write Buffer command with Mode 5. 

All letter representation is in upper case. 

All data is in ASCII format unless otherwise indicated 

Customer ID 

This field is always set to "UNISYS" and is left justified Unused portions are ASCII blanks 20h. 

EXAMPLE: "UNISYS " 
gizfr of Header Record 

This field is always set to SK bytes and is right justified with leading zeros. 

EXAMPLE: "00008192" 
ftize of Firmware, Data, 

This field contains the number of decimal bytes (represented in ASCII) of firmware data and is right 
justified with leading zeros. 

EXAMPLE: "00305152" 

This value would convert to 4A800 hex bytes for use in the CDB. 
New Firmware Level 

Level of firmware as described in bytes 32 through 35 of SCSI INQUIRY data. 

EXAMPLE: "0030" 
Vendor ID 

The name of the drive manufecturer, typically UNISYS for disk products, which corresponds to data 
Teturned from bytes 8 through 15 of drive SCSI INQUIRY command. This is specified in the 
procurement specification for that device and is left justified Unused portions are ASCII blanks 20h. 

EXAMPLE: "UNISYS " 
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FIRMWARE DOWNLOAD FORMAT SPECIFICATION 

Number of Drive ID 

Number of different drive modd numbers thai use the same firmware and is right justified with leading 

zeros. \ 

EXAMPLE: M 0002~ 
Number of j tatfaceaMc Firmware Levels 

Number of all prior firmware levels that were approved for production. This field is right justified with 
leading zeros. 

EXAMPLE: "0002" 

NOTE TO IMPLEMENTORS OF DOWNLOADING UTILITY: 

If you are downloading a current version on a drive already containing that version of firmware, 
the use of the "New firmware Level" field data is recommended for verifying the correct version 
of firmware that is downloaded to the drive. 

Firmware Level #X Record Format 

8 bytes: numbered 7..0 with left most being byte 7. 

byte 7: a format flag meaning, 

if = "Hex (XT 

"No format needed after the download of this level of firmware", or not a disk device 

else 

"Format needed after the download** (disk devices only) 

byte6_4: 

Reserved (ASCII blanks 20h) 
byte3„0: 

firmware level, as it appears in bytes 32 through 35 of the SCSI Inquiry data (Right Justified) for 
firmware level #X 

Note: Because the firmware level in this field is used to determine whether or not new 

firmware needs to be loaded, each new release of drive firmware must be uniquely 
identifiable in bytes 32 through 35 of the SCSI Inquiry data 

Drive ID # Record 

Represents the drive model number or "PRODUCT IDENTIFICATION FIELD** as returned from bytes 16 
through 3 1 of SCSI INQUIRY command and is left justified (ASCII blank 20h for unused portions). 
Unisys will advise the vendor on required drive ID's (Drive model numbers). 
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EXAMPLES: M ST41600N"ar M ST41600ND" 



4.3 Field Definitions - Non-Mode 5 Based 



The following field definitions are defined for drives that cannot download using a single ANSI standard 
Write Bufta command with Mode 5. The use of the fields in this section b optional. These fields 
should not be used if the product can operate with the defeult download sequence that uses a si ngk Wnte 
Buffer command and Mode 5. 

NOTE TO IMPLEMENTORS OF DO UNLOADING UTILITY; 

If using the non-Mode 5 method, the download utility will have to get the Mode information prior 
to building the CDB. 

MODE Record 

This is an ASCII 4 byte identifier for the start of the mode definition section of the header record. If 
present it indicates the drive does not support the default download method. The remaining MODE 
supporting records must be used to determine the appropriate Write Buffer command parameters and 
seq u ence. 

DATA: "MODE" 

Mode-Start 

This ASCII 1 byte value indicates what mode of download should be used for all but the last Write Buffer 
command, in a multiple Write Buffer series to download microcode. 

EXAMPLE: % w 

If the drive cannot support multiple Write Buffer commands firmware download and also cannot support 
the dcmult of a Mode 5 download, then this field shall contain the same value as the Mode-Last field. 

This ASCII 1 byte value indicates what mode of download should be used for the last (or only) Write 
Buffer command. 

EXAMPLE: U T 

Mode Offset Minimum Increment 

This 8 byte field identifies the nunimum incremental number of decimal bytes (represented in ASCII) of 
firmware data (offset) the drive will accept for multiple Write Buffer commands. It's format is right 
justified with leading zeroes. 

This value is also used to determine the factor by which an offset greater than the minimum is determined. 
An offset must be an even multiple of the minimum increment. For example, if the minimum increment 
is 4096, only offsets in multiples of 4096 (e.g. 8192, 12288, or 65536, etc.) may be used. 
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EXAMPLE: "00004096" 

If the drive docs not support the use of offsets in the Write Buffer command, this field Shall be set to the 
Size of Firmware Data field value for consistency. 

Mode Offset Maximum Increment 

This field identifies the maximum incremental number of decimal bytes (represented in ASCII) of 
firmware data (offset) the drive will accept for multiple Write Buffer commands. It's format is right 
justified with leading zeroes. 

If the drive does not support the use of offsets in the Write Buffer command, this field shall be set to the 
Size of Firmware Data field value for consistency. 

If the drive can accept a single Write Buffer command for download, this field shall contain the Size of 
Firmware Data field value for consistency. 

EXAMPLE: "00305152" 



4.4 Firmware Binary Data 

This record immediately follows the 8K file header. It contains the actual firmware code. The size of the 
field is set the value in the Si2e of Firmware Data field. 
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5. 



APPENDIX 



This section does not apply to Supplier thai is trying to build a heato and towiy code fiU^ Itis 
informational only and intended to explain how the information in the header is used . 



5.1 



Method of Downloading Firmware 



The SCSI Write Buffer command shall be used to download and save the firmware on the drive. There 
are two methods for downloading the firmware. The preferred capability is for the drive to receive the 
entire Firmware file body as a single Write Buffer cornraand. The second method utilizes offsets and 
modes as defined in the SCSI-3 Write Buffer command to enable the firmware file to be sent in multiple 
commands. 



5.2 



Default Download 



The following download parameters arc defined for backwards compatibility with previous Unisys 
download utilities, and firmware files. This CDB must be used when the MODE field is not present 

The Write Buffer CDB is set as fol lows, and the firmware i s transferred in a single command : 



0x3B 




0x05 


03 s Microcode Download 


0x00 


Buffer ID 


in 


Reserved 


OxXX 
OxXX 
OxXX 


Number of bytes sent to drive (3 
byte field=Size of Firmware in 
Hex) 


0x00 





5.3 



Mode and Offset Controlled Download 



A download using the Mode and Offeet controls requires the utility to generate a CDB based on the 
MODE and increment values. Consider the following MODE header information: 
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FIRMWARE DOWNLOAD FO RMAT SPECIFICATION 



Field 


Value 


MODE 


MODE 


Mode-Start 


6 


Mode-Last 


7 


Minimum liter. 


00004096 


Mflximum Incr.. 


00305152 



Note: For the purposes of this example, the maximum increment was set to the Size of Firmware Data 
value since the drive is capable of a single Write Buffer command download 

The system for which the download will occur can only send a maximum of 65536 bytes in a SCSI 
command, despite the drive's ability to receive the firmware in a single command. Since this is the case, 
the utility will have to generate four CDBs with Mode 6 (the Start value), and another CDB with Mode 7 

(Last). 

The first 4 CDBs contain the following data: 



Table 5-1. Download with Offset, CDB #1 



0x3B 




0x06 


6 Download with Offset 


0x00 


Buffer ID 


0x00 


Buffer Offset 


0x00 




0x00 




0x01 


Number of bytes sent to drive (3 


0x00 


byte field) 


0x00 




0x00 




Table 5-2. Download with Offset, CDB #2 


0x3B 




0x06 


6 = Download with Offset 


0x00 


Buffer ID 


0x01 


Buffer Offset 


0x00 




0x00 




0x01 


Number of bytes sent to drive (3 


0x00 


byte field) 


0x00 




0x00 
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Table 5-3. Donloail witti Offset, CDB 03 



0x3B 




0x06 


6 « Download with Offset 


0x00 


Buffer ID 


0x02 


Buffer Offset 


0x00 




0x00 




0x01 


Number of bytes sent to drive (3 


0x00 


byte field) 


0x00 




0x00 




Table 5-4. Download with Offset, CDB #4 


0x3B 




0x06 


6 = Download with Offset 


0x00 


Buffer ID 




Buffer Offset 


0x03 




0x00 




0x00 




0x01 


Number of bytes sent to drive (3 


0x00 


byte field) 


0x00 




0x00 





The last CDB contains Mode 7, Download with Offset and Save: 



Table 5-5. Download with Offset and Save, Last CDB 



0x3B 




0x07 


7 -Download with Offset and Save- 


0x00 


Buffer ID 


0x04 


Buffer Offset 


0x00 




0x00 




0x00 


Number of bylcs sent to drive (3 


0xA8 


byte field) 


0x00 




0x00 





5.3 Determining the Method of Download 



This section provides a sample algorithm that the utility implementor can use to determine what type of 
download should be performed based on the information provided in the Header. It is assumed that before 
this algorithm is processed that the Header data has been validated with the device, i.e. Unisys name in 
the header, firmware levels compared, and product model compared. 
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FIRMWARE DOWNLOAD FO RMAT SPECIFICATION 



DEFINE VARIABLE "SYSCAP" « The maximum length ofa SCSI I/O that the system can send for the 
Write Buffer Command 

IF THE WORD 'MODE' IS NOT PRESENT IN THE HEADER DATA 
THEN ; DEFAULT DOWNLOAD METHOD MUST BE USED 

IF 'Size of firmware data* > SYSCAP 

THEN 

ERROR "DOWNLOAD IS NOT POSSIBLE" 

ELSE 

PERFORM DEFAULT DOWNLOAD (MODE 5, SINGLE COMMAND) 

ELSE ; DEFAULT CANT BE USED BECAUSE MODE IS PRESENT 
IF SYSCAP > 'Mode Offset Maximum Increment* 
THEN 

IF 'Mode Offset Maximum Increment' = 'Size of firmware data* 
THEN 

"DO 1 VO WITH 'Mode Last* IN THE CDB, AND LENGTH = 
'Size of firmware data* 

ELSE 

-DO 'n' 1/Os WITH 'Mode Start* IN THE CDB, AND LENGTH - 
'Mode Oflfcet Maximum Increment' UNTIL THE LAST I/O WHICH IS 
EXECUTED WITH 'Mode Last* IN THE CDB. DONT FORGET THAT 
THE OFFSETS IN THE CDB HAVE TO INCREMENT WITH EACH I/O." 

ELSE ; THIS IS THE CASE WHERE DRIVER FIRMWARE IS BIGGER THAN HOST CAP 
IF 'Mode Offset Minimum Increment' > SYSCAP 

THEN 

ERROR "DOWNLOAD IS NOT POSSIBLE. SYSTEM NOT CAPABLE" 



ELSE 



"CALCULATE THE LARGEST POSSIBLE BLOCK SIZE THAT IS A 
MULTIPLE OF THE 'Mode Offset Minimum Increment*. BUT IS LESS 
THAN THE SYSCAP SIZE. THEN- 

"DO *n* I/Os WITH 'Mode Start* IN THE CDB, AND LENGTH -= 
'Newly calculated value < SYSCAP* UNTIL THE LAST VO WHICH IS 
EXECUTED WITH 'Mode Last' IN THE CDB. DONT FORGET THAT 
THE OFFSETS IN THE CDB HAVE TO INCREMENT WITH EACH I/O.' 
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Alanis, Belisario 



MV 



To: 
Cc: 



From: 



Leisz, Frank J 
Alanis, Belisario 
Hale, Wesley 
Test Unit Ready 
Friday, September 13, 



TR 

MV; Shelton, Phil MV 

MV; Bauman, David A; Stell, Jeffery A 



Subject: 
Date: 



1996 2:09PM 



Hi; 



In order to accommodate the SSD request for the addition of the Test Unit Ready command, S/W will continue 
to use the current interface between the DFAST application and the MCP procedure USERMAINTERQUEST. 

To invoke the Test Unit Ready command, the User will pass 11 as the function code. The remaining parameter 
definitions are the same. 

For this function code, the MCP will issued the Test Unit Ready Command (OOh) and return any detected error 
condition in the parameter DEVICERD. 

Any problems or comments on this interface? 



TIA 
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Alanis, Belisario MV 



Subject: 
Date: 



To: 
Cc: 



From: 



Leisz, Frank J 

Alanis, Belisario MV 

Houseman, Gloria R; Stell, Jeffery A 

Bootleg 423A MCP (Download Microcode with multi-IO's) 

Tuesday, November 19, 1996 1:56PM 



Greetings: 



I created a new bootleg 423A MCP, which contains the new download function codes and the Ralph's OST 
patches. 

The name of the bootleg MCP is: 

(TRANSFER)SYSTEM/423A/MCP/ASDX/UMR ON TRANSFER located on TRPROGD 
Hopefully this helps with available machine time, if there are any problems, please call me at sn-385-4487. TIA 
Frank 
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DFAST= ON ENGDATA 

File Name Filekind Records Sectors CreationTime 
+ + + + 



DFAST 


DCALGOLCODE 


270 


270 


08/09/1996 


DFAST/NX 


DCALGOLCODE 


270 


270 


11/11/1996 


DFAST/GAM/DLT/MLTBLK/TUR/NFWCOMPR 






03/07/1997 




DCALGOLCODE 


290 


297 


DFAST/SPO 


DCALGOLCODE 


280 


288 


07/10/1996 


DFAST/CHUNK 


DCALGOLCODE 


270 


270 


09/23/1996 


DFAST/GAMMA/DELTA 


DCALGOLCODE 


270 


270 


02/18/1997 


DFAST/GAMMA/DELTA/MULTBLK/TUR 










DCALGOLCODE 


290 


297 


02/18/1997 


DFAST/NXTUR 


DCALGOLCODE 


290 


297 


01/28/1997 


DFAST/ CHUNKY 


DCALGOLCODE 


286 


288 


11/27/1996 


DFAST/ CHUNKY/UNTILO 


DCALGOLCODE 


286 


288 


12/02/1996 


DFAST/ 3 DIGIT 


DCALGOLCODE 


269 


270 


06/27/1996 


DFAST/ 3 DIGIT/S YSTPFORDEV 


DCALGOLCODE 


270 


270 


06/27/1996 


DFAST/CHUNKY2 


DCALGOLCODE 


290 


297 


12/12/1996 


DFAST/ CHUNKY 2/UNI S YS 


DCALGOLCODE 


290 


297 


01/13/1997 


DFAST/NXTURFX 


DCALGOLCODE 


290 


297 


01/29/1997 



v*~e-* \rs Par t>pgr^4^ 4 s ® 

it 




b t T*- j f 



MC*D«< 



r h 



File: C:\WIHDSON\MM3J4.0UT 




Ltutx. 
&<M,Vt) 



^ at,?) 



WRAP (no mask) 



00000000000000000000000000000000000000000000000000000000000000000000000000000000 
00000000000000000000000000000000000000000000000000000000000000000000000000000000 
00000000000000000000000000000000000000000000000000000000000000000000000000000000 
00000000000000000000000000000000000000000000000000000000000000000000000000000000 
00000000000000000000000000000000000000000000000000000000000000000000000000000000 
00000000000000000000000000000000000000000000000000000000000000000000000000000000 
00000000000000000000000000000000000000000000000000000000000000000000000000000000 
00000000000000000000000000000000000000000000000000000000000000000000000000000000 
00000000000000000000000000000000000000000000000000000000000000000000000000000000 
00000000000000000000000000000000000000000000000000000000000000000000000000000000 
00000000000000000000000000000000000000000000000000000000000000000000000000000000 
00000000000000000000000000000000000000000000000000000000000000000000000000000000 
00000000000000000000000000000000000000000000000000000000000000000000000000000000 
00000000000000000000000000000000000000000000000000000000000000000000000000000000 
00000000000000000000000000000000000000000000000000000000000000000000000000000000 
00000000000000000000000000000000000000000000000000000000000000000000000000000000 
00000000000000000000000000000000000000000000000000000000000000000000000000000000 
00000000000000000000000000000000000000000000000000000000000000000000000000000000 

VIEW ASCII Dump Formatted Gather Hex Mask Wordwrap 

COMMANDS F2 F3 F4 F5 F6 goto bookmark F9 search SPACE search again 

t* scroll ALT SHFT menus F10 commands Fl help ESC cancel 



Symbol (bfar/idosooo 



A-pn( I by (hv&Ktljr 



1 



?9 



(BEL )D FAST ON ENGDATA. (Version 01.002) compiled 08/09/96 a 15:50, run on 02/20/97 a 13:52 



DO YOU WANT TO VIEW THE USER DOCUMENTATION FOR DFAST? 'Y' OR 'N' 
Y 

DFAST is a firmware download utility for SCSI disk drives 
and/or SBC Controllers- DFAST requires: 

1. ) Firmware input file on disk or tape; e.g., 

(UC00E)FWFILE/123 ON ANYPACK - if on disk 
or 

(UC0DE)FWFILE/123 - if on tape 

2. ) A target (SCSI disk drive or SBC Controller) 

that has been reserved (URed). 

3. ) '44ix #> AX' when responding to a prompt. 
The process follows the following format: 

A. ) The user is asked to select one of four options: 

1. ) 'Ctlload' - select a SBC unit type. 

2. ) 'Disk load' - select a SCSI disk drive unit type. 

3. ) 'Verifyfile' - check and display firmware file 

header information without 
performing a download to the target. 

4. ) 'Quit' - exit DFAST. 

B. ) The user is prompted for a firmware file name or 

'Quit' to exit DFAST. 

C. ) If the file is validated as a firmware file, the new 

firmware level is displayed; otherwise the program 
returns to step 'B'.. 

D. ) If 'Ctlload' or 'Disk load' was entered in step 'A', 

then for every SCSI disk or SBC unit number entered, 
steps 'a' through 'e' below are performed. 

a. ) Target attributes are obtained and displayed. 

b. ) If download is not allowed (due to mismatch of file/ 

target Firmware level, Product ID or Vendor ID), the 
process stops for that unit, and the user is asked 
to enter another target nunber of the same unit type 
or 'End' to return to step 'A', 
otherwise: 

c. ) If the SCSI drive (not SBC) requires formatting(IVR) 

after the download, the user is consulted to: 

i. ) continue with the firmware download -or- 

ii. ) stop the process for that unit (to back up data 

on that drive) and select another target of the 
same unit type, or 'End' to return to step 'A'. 

d. ) After the download is complete and the target has 

sequenced, the INQUIRY command is reissued, and the 
new firmware level of the target is displayed. 

e. ) The user is prompted to enter another target number 

of the same unit type or 'End' to return to step 'A'. 

»»»»»»»»»» ATTENTION «««««««««« 

READ the appropriate FCN for this firmware file 

before downloading the firmware 
»»»»»»»»»» ATTENTION «««««««««« 

Do you want to continue? Enter 'YES' or 'NO' 



for JD^la^ 




EIR Number Prt Cup Rv 

UNISYS ENGINEERING INFORMATION RELEASE MV - 200523 00 1 A 

SUMMARY SHEET 

Rel Date: 19990707 
Rev Date: 



Product Name: CONTRLR SUPPT Page 1 of 23 

Project No : COMMON RCC: 4 Summry Shts: 3 

Type : CHANGE Priority: A Rep/Add Shts: 1 

Category : SOFTWARE Attachments : 

Eng Affected: MV 
Mfg Affected: 
REA(s) : 



WORKORDER(s): MV44003 



Keywr d: 

Reason: UPDATE DFAST LVL 1.004 TO LVL 1.005 
Expl anati on - Ful 1 : 

RELEASES DFAST MEDIA LEVEL 1.005 TO THE PTDTOQUAL KIT AND 

RELEASES MEDIA TO POSM. DFAST LEVEL 1.005 ADDS SUPPORT TO THE 

NX5820 LVD AND SERVER DOWNLOAD. 

34925156-003 TO -004 

34925149-003 TO -004 



EIR Revision: 



Preparer 
Checker 
I ni t 
Safety 
Aut hor i z 
Authori zer 



C. 



A 

LAKE 



Est Date: 19990629 



Rel Date: 19990707 



EMI Coord 
EMI Info 
Mfg Rev 
Other 
Other 



s Verification Statement: 







List 




Part . 


Pi c 










C 


BC 


No. 


Pg 


Base/Part 


Fr/T 


0. 


Fr/1 


'o. 


Fr/T 


0 


Des cri pti on 






C 


St SF. 




3492 


4639 


F 


g' 








* 


DFASTMT MED ASSY M42 








PL 


2' 


4 


3492 


4639-003 






F 


G 






DFASTMT MED ASSY M42 






c 


I 






3492 


4639-004 








G 






DFASTMT MED ASSY M42 


1. 


0 


N 


A 






3492 


5149 


F 


G 






♦ 


♦ 


DFASTQ IC MED ASSY M17 








PL 


2 


6 


3492 


5149-003 






F 


G 






DFASTQ IC MED ASSY M17 






C 


I 






3492 


5149-004 








G 






DFASTQ IC MED ASSY Ml 7 


1. 


0 


N 


A 






3492 


5156 


F 


G 






* 


* 


DFASTHIC MED ASSY M48 








PL 


2 


8 


3492 


5156-003 






F 


G 






DFASTHIC MED ASSY M48 LV 


1. 


0 


C 


I 






3492 


5156-004 








G 






DFASTHIC MED ASSY M48 LV 


1. 


0 


N 


A 






3493 


0222 


E 


G 






* 


* 


DFASTHIC MSTR MED M48 








TL 


2 


10 


3493 


0222-003 






E 


G 






DFASTHIC MSTR MED M48 






C 


I 






3493 


0222-004 








G 






DFASTHIC MSTR MED M48 






N 


A 






3493 


0230 


E 


G 






* 


* 


DFASTHIC LAB TXT M48 








TL 


2 


12 


3493 


0230-003 






E 


G 






DFASTHIC LAB TXT M48 






C 


I 






3493 


0230-004 








G 






DFASTHIC LAB TXT M48 






N 


A 






3493 


1014 


E 


F 






♦ 


* 


DFASTQ IC MSTR MED M17 








TL 


2 


14 


3493 


1014-003 






E 


F 
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EIR Number Prt Crcp Rv 

UNISYS ENGINEERING INFORMATION RELEASE MV - 200523 001 A 

SUMMARY SHEET 

Rel Date: 19990707 
Rev Date: 

Product Nam: CONTRLR SUPPT Page 2 of 23 

RCC: 4 Priority: A 



Lo. .List .Part . Pi c . . C BC .No.Pg. 

Us. Base/Part . Fr/To. Fr/To. Fr/To. Descri pti on . C St SF. . RM 

3493 1030 E F* * * DFASTMT MSTR MED M42 ' TL 2* 18 

3493 1030-003 E F DFASTMT MSTR MED M42 C I 

3493 1030-004 F DFASTMT MSTR MED M42 N A 

3493 1048 E F * * DFASTMT LAB TXT M42 TL 2 20 

3493 1048-003 E F DFASTMT LAB TXT M42 C I 

3493 1048-004 F DFASTMT LAB TXT M42 N A 



U N I 


SYS 


ENGINEERING INFORMATION RELEASE 

SUMMARY SHEET 

CONTINUATION 


EIR Number Prt Crcp Rv 
MV - 200523 001 A 

Rel Date: 19990707 
Rev Date: 


Product 
RCC: 4 


Nam: CONTRLR 
Priority: A 


SUPPT 


Page 3 of 23 





EIR CONTINUATION REV: A 

RELEASES DFAST MEDIA LEVEL 1.005 TO THE PTDT0QUAL KIT AND 

RELEASES MEDIA TO POSM. DFAST LEVEL 1.005 ADDS SUPPORT TO THE 

NX5820 LVD AND SERVER DOWNLOAD. 

34925156-003 TO -004 

34925149-003 TO -004 

34924639-003 TO -004 

SCRAP OLD PART NUMBERS. 



UNISYS ENGINEERING INFORMATION RELEASE 

DETAIL SHEET 



EIR Number Prt Cirp Rv 
MV - 200523 001 A 
Page 4 of 23 



List Pic 
Base Number Fr/To Fr/To Description 



3492 4639 



F G 



DFASTMT MED ASSY M42 



No 

BM Pr RCC Sb. 
PL A 4 1 



CEDB CHANGES: 

BASE NUMBER RELATED CHANGES: 



CHG Range: 
CHG EPC: 
ADD PFC: 



From 
000-003 



To 

000-004 

COMMON 

SOFTWR 



PART NUMBER RELATED CHANGES: 



3492 4639-003 



Part 
Fr/To 

F G 



Des cr i pt i on 

DFASTMT MED ASSY M42 



CC St 
C I 



CHG Desc: 
CHG Status: 
ADD Newpn: 



From 

DFASTMT LV: 1. 004 
A 



To 

DFASTMT MED ASSY M42 
I 

3492 4639-004 



DIFFERENCES BETWEEN 3492 4639-003 REPLACED -INACT IVE BY 3492 4639-004 



Fi nd Ch Al t From To 



1 

CHG Part: 3937 6975-000 3937 7007-000 

MAGNETIC TAPE, 1200 FT. MAG TAPE 3600 FOOT 

BLANK MEDIA ASSY 

DEL R001 

Ref: 3493 1030-003 

DFASTMT MSTR MED M42 
DFASTMT MSTR MED M42 

R002 

CHG Ref: 3493 1048-003 3493 1030-004 

DFASTMT LAB TXT M42 DFASTMT MSTR MED M42 

DFASTMT LAB TXT M42 DFASTMT MSTR MED M42 



UNISYS ENGINEERING INFORMATION RELEASE EIR Number Prt Crop Rv 

DETAIL SHEET MV - 200523 001 A 

Page 5 of 23 

List Pic No 

Base Number Fr /To Fr /To Description BM Pr RCC Sh 

3492 4639 F G * * DFASTMT MED ASSY M42 PL A 4 2 
DIFFERENCE REPORT Continued 



Find Ch Alt From To 
ADD R003 

Ref: 3493 1048-004 

DFASTMT LAB TXT M42 
DFASTMT LAB TXT M42 

PART NUMBER RELATED CHANGES: 
Part 

Fr/To Description CC St 



3492 4639-004 G DFASTMT MED ASSY M42 1.005 N A 



From 



ADD Desc: 
ADD Status: 



To 



DFASTMT MED ASSY M42 1.005 
A 



MANUFACTURING STATUS INFORMATION 



DISPOSITION OF PARTS: 

SCRAP OLD PARTS 

INCORP ON OPEN ORDERS 

USE UNTIL NEW PARTS AVAIL 

IMPLEMENT ON ASSEMBLIES/PARTS: 

SERIAL NUMBER: 

REWORK: IN MFG 



DEPLETE OLD STOCK 
DRAW MATL FOR EVALUATN 
INCORP NEXT TIME BLD 



IN TEST 



AT VENDOR 



REWORK 
OTHER 



IN FIELD 



COMMENTS: 



UNISYS 



ENGINEERING INFORMATION RELEASE 
DETAIL SHEET 



EIR Nunfcer Prt Cnp Rv 
MV - 200523 001 A 
Page 6 of 23 



List Pic 
Base Nunfcer Fr/To Fr/To Description. 



3492 5149 



F G 



DFASTQIC MED ASSY M17 



No 

BM Pr RCC Sh 
PL A 4 1 



CEDB CHANGES: 

BASE NUMBER RELATED CHANGES: 



CHG Range: 
CHG EPC: 
ADD PFC: 



From 
000-003 



To 

000-004 

COMMON 

SOFTER 



PART NUMBER RELATED CHANGES: 



3492 5149-003 



Part 
Fr/To 

F G 



Descri pti on 

DFASTQIC MED ASSY M17 



CC St 
C I 



CHG Desc: 
CHG Status: 
ADD Newpn: 



From 

DFASTQIC LV: 1. 004 
A 



To 

DFASTQIC MED ASSY M17 
I 

3492 5149-004 



DIFFERENCES BETWEEN 3492 5149-003 REPLACED-INACT IVE BY 3492 5149-004 



Find Ch Alt From 



To 



DEL R001 



ADD R003 



Ref : 



R002 
CHG Ref: 



Ref: 



3493 1014-003 
DFASTQIC MSTR MED Ml 7 
DFASTQIC MSTR MED Ml 7 



3493 1022-003 
DFASTQIC LAB TXT M17 
DFASTQIC LAB TXT M17 



3493 1014-004 
DFASTQIC MSTR MED M17 
DFASTQIC MSTR MED M17 



3493 1022-004 
DFASTQIC LAB TXT Ml 7 
DFASTQIC LAB TXT M17 



UNISYS 



ENGINEERING INFORMATION RELEASE 
DETAIL SHEET 



EIR Number Prt Cap Rv 
MV - 200523 001 A 
Page 7 of 23 



List Pic 
Base Nunier Fr/To Fr/To Description 



3492 5149 



F G 



DFASTQIC MED ASSY M17 



No 

BM Pr RCC Sh 



PL A 



PART NUMBER RELATED CHANGES: 



3492 5149-004 



Part 
Fr/To 



Descri pti on 

DFASTQIC MED ASSY M17 



1. 005 



CC St 
N A 



ADD Desc: 
ADD Status: 



From 



To 

DFASTQIC MED ASSY M17 
A 



1. 005 



MANUFACTURING STATUS INFORMATION 

DISPOSITION OF PARTS: 

SCRAP OLD PARTS 

INCORP ON OPEN ORDERS 

USE UNTIL NEW PARTS AVAIL 

IMPLEMENT ON ASSEMBLIES/PARTS: 

SERIAL NUMBER: 

REWORK: IN MFG 



DEPLETE OLD STOCK 
DRAW MATL FOR EVALUATN 
INCORP NEXT TIME BLD 



IN TEST 



AT VENDOR 



REWORK 
OTHER 



IN FIELD 



COMMENTS: 



UNISYS 



ENGINEERING INFORMATION RELEASE 
DETAIL SHEET 



EIR Nunter Prt Cup Rv 
MV - 200523 001 A 
Page 8 of 23 



List Pic 
Base Nunfter Fr/To Fr/To Description 



3492 5156 



F G * * DFASTHIC MED ASSY M48 



No 

BM Pr RCC Sh 
PL A 4 1 



CEDB CHANGES: 

BASE NUMBER RELATED CHANGES: 



CHG Range: 
CHG EPC: 
ADD PFC: 



From 

000-003 
* 



To 

000-004 

COMMON 

SOFTWR 



PART NUMBER RELATED CHANGES: 



3492 5156-003 



Part 
Fr/To 

F G 



Description CC St 

DFASTHIC MED ASSY M48 LV 1.00 CI 



CHG Desc: 
CHG Status: 
ADD Newpn: 



From 

DFASTHIC LV: 1. 004 
A 



To 



DFASTHIC MED ASSY M48 LV 1.00 
I 

3492 5156-004 



DIFFERENCES BETWEEN 3492 5156-003 REPLACED-INACT IVE BY 3492 5156-004 



Find Ch 
DEL R001 



Alt From 



To 



R002 



CHG 



ADD R003 



Ref : 



Ref : 



Ref: 



3493 0222-003 
DFASTHIC MSTR MED M48 
DFASTHIC MSTR MED M48 



3493 0230-003 
DFASTHIC LAB TXT M48 
DFASTHIC LAB TXT M48 



3493 0222-004 
DFASTHIC MSTR MED M48 
DFASTHIC MSTR MED M48 



3493 0230-004 
DFASTHIC LAB TXT M48 
DFASTHIC LAB TXT M48 



UNISYS 



ENGINEERING INFORMATION RELEASE 
DETAIL SHEET 



EIR Nunber Prt Cap Rv 
MV - 200523 001 A 
Page 9 of 23 



List Pic 
Base Nunfcer Fr/To Fr/To Description 



3492 5156 



F G 



DFASTHIC MED ASSY M48 



No 

BM Pr RCC Sh 
PL A 4 2 



PART NUMBER RELATED CHANGES: 



3492 5156-004 



Part 
Fr/To 

G 



Description CC St 

DFASTHIC MED ASSY M48 LV 1.005 N A 



ADD Desc: 
ADD Status: 



From 



To 



DFASTHIC MED ASSY M48 LV 1.005 
A 



MANUFACTURING STATUS INFORMATION 

DISPOSITION OF PARTS: 

SCRAP OLD PARTS 

INCORP ON OPEN ORDERS 

USE UNTIL NEW PARTS AVAIL 

IMPLEMENT ON ASSEMBLIES/PARTS: 

SERIAL NUMBER: 

REWORK: IN MFG 



DEPLETE OLD STOCK 
DRAW MATL FOR EVALUATN 
INCORP NEXT TIME BLD 



IN TEST 



AT VENDOR 



REWORK 
OTHER 



IN FIELD 



COMMENTS: 



UNISYS 



ENGINEERING INFORMATION RELEASE 
DETAIL SHEET 



EIR Number Prt Cmp Rv 
MV - 200523 001 A 
Page 10 of 23 



List Pie 
Base Number Fr/To Fr/To Description 



3493 0222 



EG * ♦ DFASTHIC MSTR MED M48 



BM Pr RCC 
TLA 4 



No 
Sh 



1 



CEDB CHANGES: 

BASE NUMBER RELATED CHANGES: 



CHG Range: 
CHG EPC: 
ADD PFC: 



From 

000-003 
♦ 



To 

000-004 

COMMON 

SOFTWR 



PART NUMBER RELATED CHANGES: 



3493 0222-003 



Part 
Fr/To 

E G 



Descri pti on 

DFASTHIC MSTR MED M48 



CC St 
C I 



From 



To 



ADD Desc: 
CHG Status: 
ADD Newpn: 



3493 0222-004 



Part 
Fr/To 



DFASTHIC MSTR MED M48 
I 

3493 0222-004 



Des cr i pt i on 

DFASTHIC MSTR MED M48 



CC St 
N A 



From To 

ADD Desc: DFASTHIC MSTR MED M48 

ADD Status: A 



UNISYS 



ENGINEERING INFORMATION RELEASE 
DETAIL SHEET 



EIR Nunher Prt Ciq> Rv 
MV - 200523 001 A 
Page 11 of 23 



List Pic 
Base Nunfoer Fr/To Fr/To Description 



3493 0222 



E G 



DFASTHIC MSTR MED M48 



BM Pr 
TL A 



No 

RCC Sh 



MANUFACTURING STATUS INFORMATION 

DISPOSITION OF PARTS: 

SCRAP OLD PARTS 

INCORP ON OPEN ORDERS 

USE UNTIL NEW PARTS AVAIL 

IMPLEMENT ON ASSEMBLIES/PARTS: 

SERIAL NUMBER: 

REWORK: IN MFG 



DEPLETE OLD STOCK 
DRAW MATL FOR EVALUATN 
INCORP NEXT TIME BLD 



IN TEST 



AT VENDOR 



REWORK 
OTHER 



IN FIELD 



COMMENTS: 



UNISYS 



ENGINEERING INFORMATION RELEASE 
DETAIL SHEET 



EIR Number Prt Crcp Rv 
MV - 200523 001 A 
Page 12 of 23 



List Pic 
Base Number Fr/To Fr/To Description 



3493 0230 



EG** DFASTHIC LAB TXT M48 



BM Pr RCC 
TLA 4 



No 
Sh 



1 



CEDE CHANGES: 

BASE NUMBER RELATED CHANGES: 



CHG Range: 
CHG EPC: 
ADD PFC: 



From 

000-003 
♦ 



PART NUMBER RELATED CHANGES: 



3493 0230-003 



Part 
Fr/To 

E G 



Des cr i pt i on 
DFASTHIC LAB TXT M48 



To 

000-004 

COMMON 

LABEL 



CC St 
C I 



From 



ADD Desc: 
CHG Status: 
ADD Newpn: 



3493 0230-004 



Part 
Fr/To 



Description 
DFASTHIC LAB TXT M48 



To 

DFASTHIC LAB TXT M48 
I 

3493 0230-004 



CC St 
N A 



ADD Desc: 
ADD Status: 



From 



To 

DFASTHIC LAB TXT M48 
A 



UNISYS ENGINEERING INFORMATION RELEASE 

DETAIL SHEET 



EIR Nunter Prt Cnj> Rv 
MV - 200523 001 A 
Page 13 of 23 



List Pic No 
Base Nunfcer Fr/To Fr/To Description BM Pr RCC Sh 



3493 0230 E G ♦ ♦ DFASTHIC LAB TXT M48 TLA 4 2 



MANUFACTURING STATUS INFORMATION 



DISPOSITION OF PARTS: 

SCRAP OLD PARTS DEPLETE OLD STOCK REWORK 

INCORP ON OPEN ORDERS DRAW MATL FOR EVALUATN 

USE UNTIL NEW PARTS AVAIL INCORP NEXT TIME BLD OTHER 



IMPLEMENT ON ASSEMBLIES/PARTS: 

SERIAL NUMBER: 

REWORK: IN MFG IN TEST AT VENDOR IN FIELD 



COMMENTS: 



UNISYS 



ENGINEERING INFORMATION RELEASE 
DETAIL SHEET 



EIR Number Prt Cup Rv 
MV - 200523 001 A 
Page 14 of 23 



List Pic 
Base Nunber Fr/To Fr/To Description 



3493 1014 



E F * * DFASTQIC MSTR MED M17 



BM Pr RCC 
TL A 4 



No 
Sh 



1 



CEDB CHANGES: 

BASE NUMBER RELATED CHANGES: 



CHG Range: 
ADD Med Cd: 
CHG EPC: 
ADD PFC: 



From 
000-003 



To 

000-004 
CT 

COMMON 
SOFTWR 



PART NUMBER RELATED CHANGES: 



3493 1014-003 



Part 
Fr/To 

E F 



Descri pti on 

DFASTQIC MSTR MED M17 



CC St 
C I 



ADD Desc: 
CHG Status: 
ADD Newpn: 



3493 1014-004 



From 
A 



Part 
Fr/To 



To 

DFASTQIC MSTR MED M17 
I 

3493 1014-004 



Descri pti on 

DFASTQIC MSTR MED M17 



CC St 
N A 



From To 

ADD Desc: DFASTQIC MSTR MED M17 

ADD Status: A 



UNISYS 



ENGINEERING INFORMATION RELEASE 
DETAIL SHEET 



EIR Nunter Prt Cnp Rv 
MV - 200523 001 A 
Page 15 of 23 



List Pic 
Base Number Fr/To Fr/To Description 



3493 1014 



E F 



DFASTQIC MSTR MED M17 



No 

BM Pr RCC Sh 
TLA 4 2 



MANUFACTURING STATUS INFORMATION 

DISPOSITION OF PARTS: 

SCRAP OLD PARTS 

INCORP ON OPEN ORDERS 

USE UNTIL NEW PARTS AVAIL 

IMPLEMENT ON ASSEMBLIES/PARTS: 

SERIAL NUMBER: 

REWORK: IN MFG 



DEPLETE OLD STOCK 
DRAW MATL FOR EVALUATN 
INCORP NEXT TIME BLD 



IN TEST 



AT VENDOR 



REWORK 
OTHER 



IN FIELD 



COMMENTS: 



UNISYS 



ENGINEERING INFORMATION RELEASE 
DETAIL SHEET 



EIR Number Prt Crcp Rv 
MV - 200523 001 A 
Page 16 of 23 



List Pic 
Base Number Fr/To Fr/To Description 



3493 1022 



E F * ♦ DFASTQIC LAB TXT M17 



No 

BM Pr RCC Sh 
TL A 4 1 



CEDB CHANGES: 

BASE NUMBER RELATED CHANGES: 



CHG Range: 
ADD Med Cd: 
CHG EPC: 
ADD PFC: 



From 

000-003 
♦ 



To 

000-004 
CT 

COMMON 
LABEL 



PART NUMBER RELATED CHANGES: 



3493 1022-003 



Part 
Fr/To 

E F 



Description 
DFASTQIC LAB TXT M17 



CC St 
C I 



ADD Desc: 
CHG Status: 
ADD Newpn: 



3493 1022-004 



From 
A 



Part 
Fr/To 



Descri pti on 
DFASTQIC LAB TXT M17 



To 

DFASTQIC LAB TXT M17 
I 

3493 1022-004 



CC St 
N A 



From • To 

ADD Desc: DFASTQIC LAB TXT M17 

ADD Status: A 



UNISYS 



ENGINEERING INFORMATION RELEASE 
DETAIL SHEET 



EIR Number Prt Cnp Rv 
MV - 200523 001 A 
Page 17 of 23 



List Pic 
Base Nunker Fr/To Fr/To Description 



3493 1022 



E F 



DFASTQIC LAB TXT M17 



No 

BM Pr RCC Sh 
TL A 4 2 



MANUFACTURING STATUS INFORMATION 

DISPOSITION OF PARTS: 

SCRAP OLD PARTS 

INCORP ON OPEN ORDERS 

USE UNTIL NEW PARTS AVAIL 

IMPLEMENT ON ASSEMBLIES/PARTS: 

SERIAL NUMBER: 

REWORK: IN MFG 



DEPLETE OLD STOCK 
DRAW MATL FOR EVALUATN 
INCORP NEXT TIME BLD 



IN TEST 



AT VENDOR 



REWORK 
OTHER 



IN FIELD 



COMMENTS: 



UNISYS 



ENGINEERING INFORMATION RELEASE 
DETAIL SHEET 



EIR Number Prt Cmp Rv 
MV - 200523 001 A 
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List Pic 
Base Number Fr/To Fr/To Description. 



3493 1030 



E F 



DFASTMT MSTR MED M42 



No 

BM Pr RCC Sa 
TL A 4 1 



CEDB CHANGES: 

BASE NUMBER RELATED CHANGES: 



CHG Range: 
CHG EPC: 
ADD PFC: 



From 

000-003 
* 



To 

000-004 

COMMON 

S0FTWR 



PART NUMBER RELATED CHANGES: 



3493 1030-003 



Part 
Fr /To 

E F 



Descri pti on 

DFASTMT MSTR MED M42 



CC St 
C I 



From 



ADD Desc: 
CHG Status: 
ADD Newpn: 



3493 1030-004 



Part 
Fr/To 



Description 

DFASTMT MSTR MED M42 



To 

DFASTMT MSTR MED M42 
I 

3493 1030-004 



CC St 
N A 



ADD Desc: 
ADD Status: 



From 



To 

DFASTMT MSTR MED M42 
A 



UNISYS 



ENGINEERING INFORMATION RELEASE 
DETAIL SHEET 



EIR Nunber Prt Ciqp Rv 
MV - 200523 001 A 
Page 19 of 23 



List Pie 
Base Nunfcer Fr/To Fr/To Description 



3493 1030 



E F 



DFASTMT MSTR MED M42 



No 

BM Pr RCC Sh 



TL A 



MANUFACTURING STATUS INFORMATION 

DISPOSITION OF PARTS: 

SCRAP OLD PARTS 

INCORP ON OPEN ORDERS 

USE UNTIL NEW PARTS AVAIL 

IMPLEMENT ON ASSEMBLIES/PARTS: 

SERIAL NUMBER: 

REWORK: IN MFG 



DEPLETE OLD STOCK 
DRAW MATL FOR EVALUATN 
INCORP NEXT TIME BLD 



IN TEST 



AT. VENDOR 



REWORK 
OTHER 



IN FIELD 



COMMENTS: 



UNISYS 



ENGINEERING INFORMATION RELEASE 
DETAIL SHEET 



EIR Nunter Prt Cnp Rv 
MV - 200523 001 A 
Page 20 of 23 



List Pie 
Base Number Fr/To Fr/To Description 



3493 1048 



E F 



DFASTMT LAB TXT M42 



No 

BM Pr RCC Sh 
TL A 4 1 



CEDB CHANGES: 

BASE NUMBER RELATED CHANGES: 



CHG Range: 
ADD Med Cd: 
CHG EPC: 
ADD PFC: 



From 
000-003 



PART NUMBER RELATED CHANGES: 



3493 1048-003 



Part 
Fr/To 

E F 



Description 
DFASTMT LAB TXT M42 



To 

000-004 
MT 

COMMON 
LABEL 



CC St 
C I 



From To 

ADD Desc: DFASTMT LAB TXT M42 

CHG Status: A I 

ADD Newpn: 3493 1048-004 

Part 

Fr/To Description CC St 



3493 1048-004 F DFASTMT LAB TXT M42 N A 



From To 

ADD Desc: DFASTMT LAB TXT M42 

ADD Status: A 



UNISYS ENGINEERING INFORMATION RELEASE 

DETAIL SHEET 



EIR Number Prt Cnp Rv 
MV - 200523 001 A 
Page 21 of 23 



List Pic No 
Base Nunber Fr/To Fr/To Description BM Pr RCC Sh 



3493 1048 E F ♦ ♦ DFASTMT LAB TXT M42 TLA 4 2 



MANUFACTURING STATUS INFORMATION 



DISPOSITION OF PARTS: 

SCRAP OLD PARTS DEPLETE OLD STOCK REWORK 

INCORP ON OPEN ORDERS DRAW MATL FOR EVALUATN 

USE UNTIL NEW PARTS AVAIL INCORP NEXT TIME BLD OTHER 



IMPLEMENT ON ASSEMBLIES/PARTS: 

SERIAL NUMBER: 

REWORK: IN MFG IN TEST AT VENDOR IN FIELD 



COMMENTS: 



EIR Number Prt Cnp Rv 

UNISYS ENGINEERING INFORMATION RELEASE MV - 200523 001 A 

REPORTS/ADDENDUM 

Rel Date: 19990707 
Rev Date: 



Product Nam: CONTRLR SUPPT Page 22 of 23 

RCC: 4 Priority: A 



TOP UNITS AFFECTED: 



Unit 


Part 


Sta 


Bom 


DCL 


Deseri pti on 


2346 


1809-999 


A 


SU 


MV 


KIT: PTDTOQUAL 


S445 


3068-000 


I 


SU 


MV 


KIT, SCSI FIRMWARE DOWNLOAD 


3445 


3068-001 


I 


SU 


MV 


KIT, SCSI FIRMWARE DOWNLOAD 


3445 


3068-002 


I 


SU 


MV 


KIT, SCSI FIRMWARE DOWNLOAD 


3445 


3068-003 


A 


SU 


MV 


KIT, SCSI FIRMWARE DOWNLOAD 


4490 


2542-000 


A 


SU 


MV 


KIT, FCN-USR4000-O10 A-MT 


4490 


2567-000 


A 


SU 


MV 


INDEX, FCN USR4000-010 



UNISYS ENGINEERING INFORMATION RELEASE EIR Nunfcer Prt Cnp Rv 

APPENDIX: STRUCTURE CHANGES MV - 200523 001 A 

Page 23 of 23 



3492 4639-003 DFASTMT MED ASSY M42 DFASTMT MED ASSY M42 

DIFFERENCES BETWEEN 3492 4639-003 REPLACED-INACT IVE BY 3492 4639-004 
Find Ch Alt From To 



CHG 1 3937 6975-000 3937 7007-000 

DEL Ref R001 3493 1030-003 

CHG Ref R002 3493 1048-003 3493 1030-004 

ADD Ref R003 3493 1048-004 



3492 5149-003 DFASTQIC MED ASSY M17 DFASTQIC MED ASSY M17 

DIFFERENCES BETWEEN 3492 5149-003 REPLACED-INACT IVE BY 3492 5149-004 

Find Ch Alt From To 
DEL Ref R001 3493 1014-003 

CHG Ref R002 3493 1022-003 3493 1014-004 

ADD Ref R003 3493 1022-004 

3492 5156-003 DFASTHIC MED ASSY M48 DFASTHIC MED ASSY M48 LV 1.00 

DIFFERENCES BETWEEN 3492 5156-003 REPLACED-INACT IVE BY 3492 5156-004 

Fi nd Ch Al t From To 
DEL Ref R001 3493 0222-003 

CHG Ref R002 3493 0230-003 3493 0222-004 

ADD Ref R008 3493 0230-004 



%$ VERSION 90.032.001 
$$ SET STACK LIMIT 100 
$$ RESET LIST XREF 
$$ SET VERSION 01.005.000 
$$ SET OMIT 

% PATCH FOR DOWNLOAD IN MULTIPLE CHUNKS 



00000092 
00010000 
00011000 
00012000 
00013000 

00013500010040006 



## 
## 
## 
## 
## 
## 
## 

## 
###### 



## 



## 



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % %%%%%%%%%%% %%%%%00 014 000 

00015000 

Class | Unisys 00016000 

00017000 

This material is restricted and proprietary to the 00018000 
####### I Unisys Corporation and is not to be reproduced, shown, 0001 9000 
or disclosed outside the Unisys Corporation. Customer00020000 
Services Engineering restricted and proprietary data 00021000 
is furnished solely for use by Unisys personnel in 00022000 
servicing customer's equipment. 00023000 

00024000 
00025000 

This document is the property of and shall be returned00026000 
to Unisys Corporation, One Unisys Place, Detroit, MI 00027000 
48232. 00028000 

00029000 
00030000 

Material | Copyright (C) 1994. 00031000 

00032000 
00033000 
00034000 
00035000 

%«%%%%%%%%%%%%«%%%%%%%%%%%%%%%%%%%%%%%« %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%00036000 
PAGE 00037000 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%ft%%%%%%00038000 
% 00039000 
% TARGET/ FWLOAD 00040000 

% 00041000 
% Patch History 00042000 

% 00043000 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%«%%%%% %%%%%%%%%%%%%%%%%%%%%%%% %0004 4000 



% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
ft 
ft 
% 
% 



4/94 



4/94 
5/94 
6/94 
10/94 



Initial version. Will download A-code files to 
and SCSI Disk Drives. 

Changes - Qualification phase for official CSPO 
Add 'Express Mode' for engineering (DISKs only) 

Change location of some display statements. 

Fixed seg array error in Verifyfile procedure. 



SBC controllers 00045000 
00046000 

. 00047000010010001 
00047200010020003 
00047500010020002 
00047600010020004 
00048000 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%ft%%%%%%00049000 



release 
release 
release 
release 



01.001. 
01.002. 
01.002. 
01.002. 



DOWNLOAD FIRMWARE to A-SERIES TARGETS (DFAST) 



Utility's Part Number: 3492 4639 

This utility's primary function is to load microcode to SCSI BUS 
CONTROLLERS ( SBC J and/or SCSI disk drives, and must be marked as a 
PPed (Privileged Program) in order to operate. 



ACCEPT statement 
program requires 



00052000 
00053000 
00054000 
00055000 
00056000 
00057000 
00058000 
00059000 
00060000 
00061000 
00062000 ' 
00063000 
00064000 
00065000 
00066000 
00067000 

00068000 

00069000 

To operate, two basic elements must be present: an SBC controller or00070000 
SCSI disk drive, and a microcode file on disk or tape. The microcode 00071000 
must reside on a unit served by a different controller or disk than the 00072000 
one being initialized. If a "critical unit" exists on the string served00073000 
by the controller being initialized and there is only one path to that 00074000 
critical unit, the system will reject the attempt to download the 00075000 
microcode. 0007 6000 

00077000 



Interaction with the user is via prompts at either a terminal or 
an ODT. Terminal prompts use regular I/O. ODT inputs use the 
Otherwise the input rules are the same, 
interactive user participation to execute 



The 
properly 



Load : 



1) Step one is to determine the code file's capability by having the00078000 



user enter a file name. Normal Family Substitution rules are in 
effect. If the file cannot be found, the user is prompted to enter 
another file name. The file name may include an "ON <family>" in the 
file declaration if it resides on disk (e.g., (UCODE) XYZ/123 ON MY PACK ) 
If the file resides on tape, the file name only would be entered 
(e.g., SCZFRM). 

If the code file is not a valid SBC or disk drive Acode file, the 
file is rejected and the user is prompted to enter another file name. 

2) Step two is to determine the SBC controller or drive capability. 
The user enters a SBC or drive number and the utility reads the unit f s 
attributes. If the SBC or drive number does not represent the correct 
target, or if the target attributes do not match those of the Acode 
file, the user is propted to enter a new target number or f Quit'. The 
SBC controller or drive must be reserved. 

»» There may be no way to prove that the SBC controller controls any 
»» given drive or that it is the only path to the drive or that 
»» another path exists! The User should do an "OL 1 on the ODT 
»» to verify the paths available for the target. 



Verifyfile: 



Verify is simpler than Load since no SBC or drive is involved. The 
user answers the file name prompt and the Verify routine used by Load is00106000 
called to generate a report on the attributes associated with that file . 00107000 

00108000 

Verify allows the user to cycle through multiple, potential A-code 00109000 
files until 'Quit 1 is entered. 00110000 
$$ POP OMIT 00111000 
BEGIN 00112000 
%%%%%%%%%%%%%%%%%%%%%%%%%%%«%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%«% %%%%%%% 00113000 
% Structure Generating Declarations 00114000 

%%%%%%%%%%%%%%%%%%«%%%%%%%%%%%%%%%%%%%%'%%%%%%%%%%%%%%%%%%%%%%%%«%*%%%%%% 00115000 



00079000 
00080000 
00081000 
,00082000 
00083000 
00084000 
00085000 
00086000 
00087000 
00088000 
00089000 
00090000 
00091000 
00092000 
00093000 
00094000 
00095000 
00096000 
00097000 
00098000 
00099000 
00100000 
00101000 

00102000010020003 
00103000010020003 
00104000 
00105000 



DEFINE 
OVHD 
, XSTATBYTES 
, EIGHTK 
, ENDSGD 
, SYSCAP 
, MAXELEMENTS 
,MAXR0WS 



FILE 

C0DE( KIND 
%%%%% LAB EL KIND 

FILEUSE 

OPTIONAL 

NEWFILE 

DEPENDENTSPECS 

,LINE( KIND 

FILEUSE 

FRAMESIZE 

MAXRECSIZE 

, RMT ( KIND 

FILEUSE 

BLOCKSTRUCTURE 

FRAMESIZE 

MAXRECSIZE 



DIRECT EBCDIC ARRAY 
IMLBUF2 [0:0,0:0] 
,IMLBUF3 [0:0,0:0] 
, IMLBUF [0:0] 



12 

254 

8192 



00116000 

% At front of each code segment 00117000 
% Read Unit Status return length00118000 

00119000 



393216 
1 # 
48 # 



% MAX ELEMENT PER DIMENSION 
% MAX NUMBER OF ROWS 



= TAPE, 

- UNLABELLED, 

- IN, 

= TRUE, 
« FALSE, 
= TRUE J 
= PRINTER, 
= OUT, 

- 8, 

- 132) 

= REMOTE, 
= 10, 

« EXTERNAL, 

- 8, 

- 132) 



UNKNOWN TYPE 
READ ONLY 



% To be resized 
% To be resized 



00120000 

00120500010040006 

0012060001.005.000 

0012080001.005.000 

00121000 

00122000 

00123000 

00124000 

00125000 

00126000 

00127000 

00128000 

00129000 

00130000 

00131000 

00132000 

00133000 

00134000 

00135000 

00136000 

00137000 

00138000 

00139000 

00140000 

00141000 

00142000010040006 
0014220001.005.001 
00142500010040006 
00143000 



EBCDIC ARRAY 
CODEREC 
, ETSTMP 
, FCUSTID 
, FNEWFWLEVEL 
r FVENDORID 
, OLDFWLEVEL 
, HDR 

, HDPRESULT 

,INBUF 

,L 

, SCR2 
,SCR 
, TTL 

, SHORTBUF 
, ESHORTBUF 
, SAVE FWLVL 
, OEM 



REAL ARRAY 
RCODE[0] 
,RHDR[0J 
,TSTMP[0] 
,X[0:0] * 



[0:0] 

[0:23] 

[0:7] 

[0:3] 

[0:7] 

[0:3] 

[0:0] 

[0:29] 

[0:131] 

[0:131] 

[0:131] 

[0:131] 

[0:89] 

[ 0 : XSTATBYTES] 
[ 0 : XSTATBYTES ] 
[0:7] 
[0:71] 



« CODEREC 

- HDR 

= ETSTMP 



CODE record 
Timestamp data 
FW file customer ID 
FW file new firmware level 
FW file vendor ID 
FW level before download 
CODE record zero 

User input buffer 
Formatting space 
Scratch 2 
Scratch space 
CODE. TITLE 
UMR Interface calls 
ASCII to EBCDIC conversion 
FW file data area of FW level 
DRIVE TYPE 



00144000 
00145000 
00146000 
00147000 
00148000 
00149000 
00150000 

00150500010020003 
00151000 
00152000 
00153000 
00154000 

00154500010040006 
00155000 
00156000 
00157000 
00158000 
00159000 

00159500010020004 
00160000 
00161000 
00162000 
00163000 
00164000 
00165000 

00165500010020004 
00166000 
00167000 
00168000 
00169000 
00170000 
00171000 
00172000 
00173000 
0017320001 
0017340001 
00174000 
00175000 
00176000 
00177000 
00178000 
00179000 
00180000 
00181000 

00181200010020004 
00181400010020004 
00182000010020004 
00183000 
00184000 
00185000 
00186000 
00187000 
00188000 

%%%%%%%%%%%%%%%«%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%«%«%%%%%%%%%%%% %%%%%001 8 9000 
% Real and Integer Variables 00190000 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%% %%%%%%%%001 91 000 



~ SCR; 



HEX ARRAY 
HSCR[0] 

POINTER 
DUMMY 
,IMLP 
,IMLP2 
, IMLP3 

,ec 



PICTURE 

DATENTIME {N/9 91 9 91 99" 



Never used 
To IMLBUF 
To IMLBUF2 
To IMLBUF3 
To CODEREC 
To L 



.005. 
.005. 



000 
000 



"N:99I99) 



TRUTHSET- 

NUMBERS ("0123456789") 
. ,HEXDIGITS (NUMBERS OR "ABCDEF" ) 
, ENDER ("."); 

TRANSLATETABLE 

UPCASER( EBCDIC TO EBCDIC, 

"abcdefghij klmnopqrstuvwxyz" TO 
" ABCDEFGHI JKLMNOPQRSTUVWXYZ " ) ; 



REAL 



FKAIW 
P MRD 

, SYSTEMTYPE 
, VAL 



INTEGER 
CODEEOF 
, CODEMRS 
, CTLUNIT 
, FHDRBYTES 
, FCODEBYTES 



% These Reals are either bit buckets or other values which 
% would not survive integerization. 



% FILEKIND Attribute Info Word 

% Maintenance Result Descriptor bits 

% All, A14, A16, A18, A19 are valid 

% Value of hex to decimal conversion 



% CODE . LASTRECORD 

% CODE.MAXRECSIZE 

% PCD unit number of CTL 

% # bytes in header record 

% Code size (# bytes) in firmware file 



00192000 
00193000 
00194000 
00195000 
00196000 

00197000010010001 

00197500010020004 

00198000 

00199000 

00200000 

00201000 

00202000 

00203000 

00204000 

00205000 



, FUNCTION 


% 


, LL 


% 


, SEGINX 


% 


, SEGMRS 


% 


, SOFAR 


% 


, TIMER 


% 


, NUMRE P FWLVLS 


% 


, DRIVEIDLOC 


% 


, NUMDRIVEID 


% 


, OPTODO 


% 


,NUMBROFIOS 


% 


,SIZEOFLSTIO 


% 


f NROWS 


% 


,MROWS 


% 



Operating mode for this run 
Number of bytes remaining in PL 
Segment starting record index 
Segment maxrecsize 
Bytes moved to IMLBUF so far 
Drop dead timer (intervals) 



00206000 
00207000 
00208000 
00209000 
00210000 
00211000 

Number of replaceable firmware levels 00212000 
Array index to FW drive IDs 00213000 
Number of drive IDs valid for the code00214000 
Opcode parameter to UMR 00215000 
# of IO's to do for multi chunk dwnld 00215200010040006 
Size of last 10 to do multi chunk dnld00215400010040006 
Number of rows required for download 00215500010040006 
Number of MOD rows as residual rows 0021560001.005.000 
'* 00216000010040006 

00217000 

%%%%*%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%00218000 
% Boolean Variables 00219000 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%% %%Q0220000 



BOOLEAN 

CTLAS SIGNED 
, SDMASSIGNED 
, DEBUG 
, ODTMODE 
, ATODT 

, SKI PODTPRINT 
, EXPRESSMODE 
, VERIFYONLY 
, FIRSTTIME 



% 



CTL assigned 
% SCSI disk drive assigned 
% Internal debug mode 
% User is at a console or terminal 
% User is at console 
% Don f t print ODT display 
% Omit many displays (for engineering) 
% Don't build FW image in buffer 
% 



00221000 
00222000 
00223000 
00224000 
00225000 
00226000 

00226500010010001 

00226600010020003 

00226800010020004 

0022690001.005.000 

00227000 



00228000 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%00229000 
% Structure Independent Defines 00230000 

%%%%%%%%%%%%%%%%«%%%%%%«%%%%%%%%%%%%%««%%%%%%%%%%%«%%%%%%%%%%%%« %%%%%%%%00231000 



DEFINE 
ADD 
,B 

, BLANK 
fC 

, CLEARINBUF 

,NUL 

rP 

, PUT(N) 

, SHOW(S,TF) 



, START 



% Formatting constants 

,TXTLOC30 
,TXTLOC22 
, TXT LOCI 5 
, ERRLOC 

% Function values 



, LOADCTLV 
f LOADEW 
f VERIFYV 

% Code File 
% Elements 



REPLACE PL: PL BY # 
BOOLEAN # 
REPLACE L BY ' 
, # 

REPLACE INBUF BY " 
48 ,t 00 ,, # 
POINTER # 

REPLACE PL:L[NJ BY 
BEGIN 

START S; 

SHOWIT(TF) ; 
END # 

REPLACE PL:L BY # 



» 30 # 
22 # 
15 # 

(TXTLOC30+2) 



FOR 22 WORDS # 



FOR 12- WORDS # 



Header (most recent version) 

for all fields include their location and their length. 



, CUSTIDLOC 
,CUSTIDLNG 
% f CUSTIDEXP 
,CUSTIDEXP 
,HDRECSIZELOC 
f HDRECSIZELNG 



0 if 

8 # 
" FUJITSU 
"UNISYS 

8 # 

8 # 



00232000 
00233000 
00234000 
00235000 
00236000 
00237000 
00238000 
00239000 
00240000 
00241000 
00242000 
00243000 
00244000 
00245000 
00246000 
00247000 
00248000 
00249000 
00250000 
00251000 
00252000 
00253000 
00254000 
00255000 
00256000 

0025700001.005.000 

00258000 

00259000 

00260000 

00261000 

00262000 

00263000 

00264000 

00264500010040006 
00265000010040006 
00266000 
00267000 





= 1 C A 

B lt> ff 






00268000 


FwrrinF^T^FT Mr; 


_ a U 
= Off 






00269000 


MFWFWT FVFT Op 


_ OA A 
= CH ff 






00270000 


MFWFWT FVFT NfZ 


— 4 ff 






00271000 


, V C*i>( UiJ I\ X U Li VJV* 


= 9 ft & 
B ff 






. 00272000 


, V Oil UWrVl LJXilN \J 


1=5 Off 






00273000 




c JD ff 






00274000 




8=1 4 ff 






00275000 




4 U ff 






00276000 


WT IMP C D CTaTT \/T CT Kin 


=» 4 ft 






00277000 


OT nPWT FVFT MR 


S3 Q A 
5=1 Off 






00278000 




X O If 






O ^ A A A A 

0027 9000 


& VF.NDORTDFXP 


» " Ft I.TTTQTT " R 
ruoii ju ff 






0027 9500010040006 


,VENDORIDEXP 


= "UNISYS " # 






00280000010040006 


ft* KT (IT CCTDTM^ 


= " SBCFirmvare . " # 






00281000 


, T VENDOR ID 


« ESHORTBUF [10] # % FOR 8 






00282000 


, 1 rrlUUxU 


» ESHORTBUF [18] # % FOR 16 






00283000 


, 1 rKUUKb VLiVIj 


■ « ESHORTBUF [34] # % FOR 4 






00284000 


, TOEMX D 


= ESHORTBUF [54] # % FOR 8 






00284500010020004 


, 1 otKVUKti VxjVIi 


= ESHORTBUF [14] # % FOR 8 






00284 60001 . 005. 000 


! 








00285000 
00286000 


% User Malnt Requests 








00287000 
00288000 










00289000 


ngolulxUINl 1 V 


t— n a 






00290000 


, U P4r\o o X oIN U £N X 1 V 


= 1 ff 






00291000 


T f*MiriOT ntJTTMT V 
, Li^JMJJoxiM vttXrlLi V 


= 2 ff 






00292000 


r f ii nr r r r>p t rvz\? 


=* J ff 






00293000 


f nl i I\X DU1LOV 


4 ff 






00294 000 


, /\0 O X vjXN X Xj V 


m O ff 






AAA OC AAA 

002 95000 


, UNASSIGNCTLV 


= 6 # 






00296000 


Mnnr ecu cr 


_, -7 # 
— > n 






00296200010040006 


nnwuT r\n riMonr / 

, UKJriN ±i\Jr\ UnU U Cj 4 


0 0 ft 






002964 0001004 0006 


, UWVVIN ijU/\UrlUlJ£iD 


= y ff 






0029660001004 0006 


, DOWNLOA DMO DE 7 


= 10 # 






00296800010040006 










AAA A 4^ f|A.AA^ A A A A A A ^ 

002 9690001004 0006 


, INQUIRY 


= 12 # 






AAA f\ f\ C rt^S^ A /\ C A A ^ 

0029695001 . 005 . 001 


■ * 








00297000 
00298000 


LIBRARY 








00299000 


MCP ( FUN CT I ONNAME 


= "MCPSUPPORTv", 






00300000 


LIBACCESS 


« BY FUNCTION) ; 






00301000 
00302000 


INTEGER PROCEDURE USERMAINTREQUEST { 






00303000 


UNITNUMBER, FUNCTIONCODE , I0LENGTH, BUFFEROFFSET, 


BUFFERID, 




00304000 


BUFFER, MkD r DEVICERD) ; 






00305000 


VALUE UNITNUMBER, FUNCTIONCODE, I0LENGTH, BUFFEROFFSET, 


BUFFERID; 




00306000 


INTEGER UNITNUMBER, FUNCTIONCODE, I0LENGTH, BUFFEROFFSET . 


BUFFERID, 


MRD; 00307 000 


EBCDIC ARRAY BUFFER [*] , 


DEVICERD!*]; 






00308000 


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 


%% 


%%00309000 


%. Description: 








00310000 


% This procedure is 


a Library-exported interface that 


supports 




00311000 


% SCSI and IPI-3 I/O 


utilities (e.g., microcode dovmload utility) 




00312000 


%. Parameters: 








00313000 


% UNITNUMBER 


External unit number of the device being 




00314000 


%* 


accessed. The MCP will determine 


whether a 




00315000 


% + 


port, CTL, or a device is being accessed using 


00316000 


%* 


data from the I/O unit tables. 






00317000 


% FUNCTIONCODE: 


Case index to be executed in the 


interface. 




00318000 


% 


0: Assign Unit 






00319000 


% 
% 


1 : Unassign Unit 

2: Do FW Load (Load Slave I ML) 






00320000 
00321000 


% 


3: Read Extended Status (Read Error Log) 




00322000 


% 


4: Obtain Disk ID (Report Attributes) 




00323000 


%* 


5: Assign CTL 






00324000 


%* 


6: Unassign CTL 






00325000 


% I0LENGTH 


Bytes 






00326000 


% BUFFEROFFSET 


Used by SCSI interface to allow non- 




00327000 


% 


transmittable data to precede actual data 




00328000 


% 


in the buffer. 






00329000 



BUFFERID 



BUFFER 



MRD 



Not required for I PI. 
Not used by SCSI. 
Not required for I PI. 

Direct EBCDIC array, to be used as the source 
of the data and the repository for extended 
parameter handling. 

Maintenance Result Descriptor bits. Some bits 
refer to HDPRESULT as returned to PTD. 
Status and Sense data 



00330000 
00331000 
00332000 
00333000 
00334000 
00335000 
00336000 
00337000 
00338000 
00339000 
00340000 
00341000 
00342000 
00343000 
00344000 
00345000 
00346000 



DEVICERD 
Assumptions: 

This routine protects the integrity of the system from a poorly 
written application-level calling program. 
Results : 

0: Function succeeded. 

>0: Function failed. See SHOWRSLT for details. 

Locks : 
None. 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%00347000 
LIBRARY MCP; 0034 8000 

0034 9000 

LABEL 00350000 
MAINLOOP 00351000 
, GRANDXIT; 00352000 
$$ PAGE BEGINSEGMENT 00353000 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%0035302001 0020004 
% CONVERT HEX TO DECIMAL %00353040010020004 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%00353060010020004 



PROCEDURE CONVERTHEXTODEC; 
BEGIN 

INTEGER I; 
POINTER PTR; 

REAL 
TEMP 
,VAL; 

VAL := 0; 
PTR := SCR; 



FOR I := 
BEGIN 
IF PTR 

TEMP 
ELSE 

CASE 



1 STEP -1 UNTIL 0 DO 

IN NUMBERS THEN 

:« INTEGER ( PTR, 1) * 16**1 



REALt PTR, 1 ) OF 



BEGIN 
"A" 
"B" 
"C" 
"D" 
"E" 

w pit 

ELSE 
END; 



PTR :=*+!; 
VAL := * + TEMP; 

END; 

REPLACE OEM BY " " 
REPLACE OEM BY VAL 



TEMP 




10 


* 


16**1; 


TEMP 




11 


* 


16**1; 


TEMP 




12 


* 


16**1; 


TEMP 




13 


* 


16**1; 


TEMP 




14 


* 


16**1; 


TEMP 




15 


* 


16**1; 



FOR 12 WORDS; 
FOR * DIGITS; 



END; % PROCEDURE CONVERTHEXTODEC 



00353080010020004 
00353100010020004 
00353120010020004 
00353140010020004 
00353160010020004 
00353162010020004 
00353164010020004 
00353166010020004 
00353168010020004 
00353180010020004 
00353200010020004 
00353220010020004 
00353280010020004 
00353300010020004 
00353320010020004 
00353340010020004 
00353360010020004 
00353380010020004 
00353400010020004 
00353420010020004 
00353440010020004 
00353460010020004 
00353480010020004 
00353500010020004 
00353520010020004 
00353540010020004 
00353560010020004 
00353580010020004 
00353600010020004 
00353620010020004 
00353640010020004 
00353660010020004 
00353680010020004 
00353685010020004 
00353690010020004 
00353695010020004 
00353700010020004 



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%00354000 
% Common I/O Routines Block- 00355000 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%00356000 
PROCEDURE SHOWIT(DSP); 00357000 
VALUE DSP; 00358000 
BOOLEAN DSP; 00359000 
% 00360000 



% Purpose: 00361000 

% Show L on LINE. 00362000 

% 00363000 

% Parameters: 00364000 

% DSP True: Caller wants a copy sent to user. 00365000 

% 00366000 

% Globals: 00367000 

% ODTMODE True: ODT is normal location of user. 00368000 

% False: Terminal is. 00369000 

% 00370000 

% Assumptions: 00371000 

% L has message text. 00372000 

% PL points to next place to add text. 00373000 

% L will be blanked out upon exit. 0037 4 000 

% 00375000 

BEGIN 00376000 

DEFINE SEGMENT = #; 00377000 

00378000 

IF NOT SKIPODTPRINT THEN 0037 85000X0010001 

WRITE (LINE, OFFSET (PL) ,L) ; % Log the transaction 0037 9000010010001 

00380000 . 

IF DSP THEN % Send a copy to the user 00381000 

IF ODTMODE THEN % at the console 00382000 

BEGIN 00383000 

REPLACE PL BY NUL; 00384 000 

DISPLAY (L) ; 00385000 

WAIT{(3)); % Slow down ODT traffic 00386000 

END 00387000 

ELSE ' % at his terminal 00388000 

WRITE (RMT, OFFSET ( PL) , L) ; 0038 9000 

00390000 

BLANK; 00391000 

00392000 

END; % Show It 00393000 

00394000 

PROCEDURE PROMPT; 00395000 

% 00396000 

% Purpose: 00397000 

% Display text to the user and expect a response. 00398000 

% 00399000 

% Globals: 00400000 

% ODTMODE How we are to perform this action. 004 01000 

* 00402000 

% Assumptions: 00403000 

% L contains the output message. 00404000 

% PL points to the next valid character in L. 00405000 

% L needs to contain the input response. 00406000 

% Both the output and input will be logged. 00407000 

% The output will be upcased after logging in its original form. 00408000 

ft The output will be prescanned and deblanked using PL and LL. 00409000 

ft Under NO condition should PROMPT call SHOWIT. SHOWIT blanks out 00410000 

% L as it exits, thus destroying all of our user input. 00411000 

% . 00412000 

BEGIN 00413000 

BOOLEAN BRSLT; 00414 000 

00415000 

IF ODTMODE THEN 00416000 

BEGIN 00417000 

WRITE (LINE, OFFSET ( PL) , L) ; % Log it 00418000 

REPLACE PL BY NUL; 00419000 

ACCEPT{L); % Both output and input space 00420000 

SCAN L FOR LL:132 UNTIL « NUL; 00421000 

LL :=> 132 - LL; , 00422000 

WRITE (LINE, LL f L) ; % Log it again 00423000 

END 00424000 

ELSE % Terminal mode 00425000 

BEGIN 00426000 

WRITE (LINE, OFFSET ( PL) ,L); % Log it 00427000 

WRITE (RMT, OFFSET ( PL) ,L); % Tell user 00428000 

BRSLT := READ{RMT, 80, L) ; 00429000 

IF BRSLT THEN % Error, maybe even ?END 00430000 



% Log it again 



GO GRANDXIT; 
PL := L[LL:=REAL(BRSLT) . [47:20] ] ; 
WRITE [ LINE i LL, L ) ; 
END; 

REPLACE L BY L FOR LL WITH UPCASER; 

SCAN PL:L FOR LL: LL WHILE = " 
END; % Prompt 
$$ ENDSEGMENT 
$$ PAGE BEGINSEGMENT 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%00441000 
% Debugging Module 004 42000 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%00443000 
% Contents: 00444000 
% SHOWMRDBITS 004 4 5000 

% SHOWHDPRESULT 00446000 
% SHOWRSLT 00447000 
% SHOWATTRIBUTES 004 4 8000 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%«%%%%%%%%%%%%%% %%%%%%%%%%% %%%%%%%%%%%%Q044 9000 



00431000 
00432000 
00433000 
00434000 
00435000 
00436000 
00437000 
00438000 
00439000 
00440000 



PROCEDURE SHOWMRDBITS; 

% 

% Purpose: 

% Expand the Maintenance Result Descriptor bits following a call to 
% USERMAINTREQUEST. 
% 

% Globals: 

% MRD The Maintenance Result Descriptor 

% 

% Assumptions: 

% The MRD is a packed bit field. 
% We don't know how to decode this yet. 
% This entire procedure will be replaced with defines, case statements, 00462000 
% value arrays, etc. 00463000 
For the moment, just dump the MRD in hex. 004 64 000 



00450000 
■00451000 
00452000 
00453000 
00454000 
00455000 
00456000 
00457000 
00458000 
00459000 
00460000 
00461000 



%%%««%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%Q0465000 



BEGIN 

DEFINE SEGMENT 



#; 



REPLACE SCR BY MRD FOR 6; 
PUT(TXTLOC30) 
"MRD = 

HSCR FOR 12 WITH HEXTOEBCDIC; 
SHOWIT(TRUE) ; 

END; % Show MRD bits 



PROCEDURE SHOWHDPRESULT; 

% 

% Purpose: 

Expand the HDPRESULT coming out of the USERMAINTREQUEST. 



Globals : 
HDPRESULT 



A byte array containing RMM data. 



Assumptions : 

We think that only 12 bytes of data are valid. We may have 

gotten an interface error if our array is too short. 
We don't know the details of what is in this thing yet. 
For now, we will just format the first 12 bytes in hex. 



% 
% 
% 
% 
% 
% 

BEGIN 



REPLACE SCR BY HDPRESULT FOR 12; 
PUT(TXTLOC30] 
"HDP =* 

HSCR [00] FOR 12 WITH HEXTOEBCDIC, 

n n 

9 

HSCR [12] FOR 16 WITH HEXTOEBCDIC; 
SHOWIT(TRUE); 

END; % Show HDP result 



00466000 
00467000 
00468000 
00469000 
00470000 
00471000 
00472000 

00473000010040006 

00474000 

00475000 

00476000 

00477000 
-00478000 

00479000 

00480000 . 

00481000 

00482000 

00483000 

00484000 

00485000 

00486000 

00487000 

00488000 

00489000 
-004 90000 

00491000 

00492000 

00493000 

00494000 

004 95000 

00496000 

00497000 

0049800001.005.000 
00499000010040006 
00500000 
00501000 



PROCEDURE SHOWRSLT ( RSLT, FCN ) 
VALUE RSLT, FCN; 

INTEGER RSLT , FCN ; 



Purpose : 

Expand the integer value contained in RSLT from a USERMAINTRE QUEST 
into understandable text. 

Parameters: 

RSLT The procedure value returned from USERMAINTREQUEST. 

FCN > 0 What function were we trying to do? 

FCN < 0 - Elapsed time in Read Attributes. 



% Often follows a PROMPT 
% Format elapsed time 



% Assumptions: 

% If RSLT = 0, the result was clean. 

% If RSLT > 0, it is a CASE code for the actual error. 

% We can use this to make global decisions in addition to 

% just printing out the value. 

% 

BEGIN 

INTEGER MM,SS; 

LABEL XIT; 

BLANK; 

IF FCN < 0 THEN 
BEGIN 

FCN := ABS(FCN) ; 

MM FCN DIV 60; 

SS := FCN MOD 60; 

START 

MM FOR 2 DIGITS, ":", 
%* SS FOR 2 DIGITS, " Read Attributes 
SS FOR 2 DIGITS, " Target: 
CTLUNIT FOR * DIGITS, 
" storing firmware."; 
GO XIT; 
END 
ELSE 

CASE FCN OF 
BEGIN 
ASSIGNUNITV: 

START "Assign Unit: B , 
UNASSIGNUNITV: 

START "Unassign Unit: 
LOADS LAVE I ML V: 

START "Load Slave FW: 
READERRORLOGV: 

START- "Read Error Log: 
ATTRIBUTESV: 

START "Read Attributes 
ASSIGNCTLV: 

START "Assign CTL: 
UNASSIGNCTLV: 

START "Unassign CTL: " 
END; 



CTLUNIT FOR + DIGITS; 
CTLUNIT FOR * DIGITS; 
CTLUNIT FOR * DIGITS; 
CTLUNIT FOR * DIGITS; 
, CTLUNIT FOR * DIGITS; 
CTLUNIT FOR * DIGITS; 
CTLUNIT FOR * DIGITS ; 



PUT(TXTLOC22) 
"RSLT « 

RSLT FOR * DIGITS, 

• r 

CASE RSLT OF 
BEGIN 

0: ADD "No error"; 

1: ADD "Unit not supported (Vendor ID not UNISYS ) " 

3: ADD "Unit is not reserved (URed)"; 

5: ADD "Illegal/undefined function code specified" 

7: ADD "I/O error. See MRD & DEVICERD parameters"; 

9: ADD "I/O length exceeds buffer's capacity"; 
11: ADD "UMR can't assign unit (reason unknown)"; 
13: ADD "Target is marked 'broken' by MCP"; 



00502000 
00503000 
00504000 
00505000 

--00506000 
00507000 
00508000 
00509000 
00510000' 
00511000 
00512000 
00513000 
00514000 
00515000 
00516000 
00517000 
00518000 
00519000 
00520000 

-00521000 
00522000 
00523000 
00524000 
.00525000 
00526000 
00527000 
00528000 
00529000 
00530000 
00531000 
00532000 
00533000 
00534000 
00535000 
00536000 
00537000 
00538000 
00539000 
00540000 
00541000 
00542000 
00543000 
00544000 
00545000 
00546000 
00547000 
00548000 
00549000 
00550000 
00551000 
00552000 
00553000 
00554000 
00555000 
00556000 
00557000 
00558000 
00559000 
00560000 
00561000 
00562000 
00563000 
00564000 
00565000 
00566000 
00567000 
00568000 
00569000 
00570000 
00571000 
00572000 



15: ADD 
17: ADD 
19: ADD 
21: ADD 
23: ADD 
25: ADD 
27: ADD 
29: ADD 
31: ADD 
33: ADD 
ELSE: ; 
END; 



"Target Is marked 'in use' by MCP"; 

"Invalid target number was specified"; 

"Unit not owned (FREE) by this partition" 

"I/O cannot be initiated"; 

"UMR Can't determine target •unit type'"; 

"UMR issued I/O to unassigned target"; 

"Unit not present ( FREEd) " ; 

"Can't find usable path to target"; 

"Illegal Unassign";. 

"IO length exceeds Max 10 of 393216"; 



XIT: 

SHOWIT(TRUE) ; 

END; % Show result 

PROCEDURE SHOWATTRIBUTES; 



% Purpose: 

% Expand the text in the SHORTBUF following a call to USERMAINTREQUEST 

% with the ATTRIBUTESV parameter. 

% 

% Globals: 

% SHORTBUF Contains the text results of ATTRIBUTES command. 

% 

% ■ 

BEGIN 

REPLACE SCR [0] BY " " FOR 2; 

REPLACE POINTER(X[0] ) BY SHORTBUF [54] FOR 1; 
REPLACE SCR[0] BY POINTER (X[ 0] , 4 ) FOR 2 WITH HEXTOEBCDIC; 
% REPLACE SCR BY "C8"; 

% SHOW {" SCR - " C SCR FOR 2 f TRUE); 
CONVERTHEXTODEC; 

REPLACE E SHORTBUF [0] BY SHORTBUF [0] FOR SIZE (ESHORTBUF) 

WITH ASCIITOEBCDIC; 
IF EXPRESSMODE THEN % Don't display - only print out 
BEGIN 

SHOW ("TARGET Attributes: n 

"VENDOR ID - » 

TVENDORID FOR VENDORIDLNG 
SHOW ("PRODUCT ID - " 

it _ n 

■SHOW ( "FW LEVEL - " 

TPRODREVLVL FOR NEWFWLEVELNG 

END 

ELSE % Display and print 

BEGIN 

SHOW ("TARGET Attributes: " 

"VENDOR ID - " 

TVENDORID FOR VENDORIDLNG 
SHOW ("PRODUCT ID - " 



C 
C 

C ".", FALSE); 

C TPRODID FOR DRIVEIDLNG 

C OEM FOR 3 C ".", FALSE); 

C 

C ".", FALSE); 



SHOW ("FW LEVEL - " 

TPRODREVLVL FOR NEWFWLEVELNG 

END; 

END; % Show attributes 
PROCEDURE SHOWINQUIRYDATA; 



C 
C 

C ".", TRUE) ; 
C TPRODID FOR DRIVEIDLNG 
C OEM FOR 3 C ".", TRUE) ; 
C 

C ".", TRUE); 



% Purpose: 

% Expand the text in the SHORTBUF following a call to USERMAINTREQUEST 

% with the INQUIRY parameter. 

% 

% Globals: 

% SHORTBUF Contains, the text results of ATTRIBUTES command. 



00573000 
00574000 
00575000 
00576000 
00577000 
00578000 
00579000 
00580000 

00580200010040006 

00580400010040006 

00581000 

00582000 

00583000 

00584000 

00585000 

00586000 

00587000 

00588000 

00589000 
-00590000 

00591000 

00592000 

00593000 

00594000 

00595000 

00596000 

00597000 
-00598000 

00599000 

00600000 

00600100010020004 

00600200010020004 

00600250010020004 

00600300010020004 

00600400010020004 

00600500010020004 

00600600010020004 

00600700010020004 

00601000 

00602000 

00602100010020003 

00602150010020003 

00602200010020003 

00602250010020003 

00602300010020003 

00602350010020004 

00602400010020004 

00602450010020003 

00602500010020003 

00602550010020003 

00602600010020003 

00602650010020003 

00603000010020003 

00604000010020003 

00605000010020003 

00606000010020004 

00607000010020004 

00608000010020003 

00609000010020003 

00609500010020003 

00610000 

00611000- 

00612000 

0061202001.005.000 

0061204001.005.000 

0061206001.005.000. 

0061208001.005.000 

0061210001.005.000 

0061212001.005.000 

0061214001.005.000 

0061216001.005.000 



% 

% 

BEGIN 



REPLACE SCR [0] BY " " FOR 2; 

REPLACE POINTER(X[0]) BY SHORTBUF [54] FOR 1; 

REPLACE SCR[0J BY POINTER (X [0] , 4 ) FOR 2 WITH HEXTOEBCDIC; 

REPLACE SCR BY "C8"; 

SHOW (" SCR « " C SCR FOR 2 f TRUE); 
CONVERTHEXTODEC; 

REPLACE E SHORTBUF [0] BY SHORTBUF [0] FOR SIZE (ESHORTBUF) 

WITH ASCIITOEBCDIC; 
IF EXPRESSMODE THEN % Don't display - only print out 
BEGIN 

SHOW ("TARGET Inqiry Data: " , FALSE ) ; 



SHOW {"TARGET Attributes: 
"VENDOR ID - " 
TVENDORID FOR VENDORIDLNG 
SHOW ("PRODUCT ID - " 

SHOW ("SERVO FW LEVEL - " 

TSERVOREVLVL FOR NEWFWLEVELNG 

END 
ELSE 
BEGIN 

SHOW ("TARGET Inquiry Data: 
SHOW ("TARGET Attributes: " 

"VENDOR ID - " 

TVENDORID FOR VENDORIDLNG 
SHOW { " PRODUCT ID - " 

n _ n 

SHOW ("SERVO FW LEVEL - " 

TSERVOREVLVL FOR NEWFWLEVELNG 



C 
C 

C FALSE); 
C T PRODI D FOR DRIVEIDLNG 
C OEM FOR 3 C FALSE); 
C 

C FALSE); 



% Display and print 



* r TRUE) j 



C 
C 

C TRUE); 
C T PRODI D FOR DRIVEIDLNG 
C OEM FOR 3 C ".", TRUE); 
C 

C ".", TRUE); 



END; 

END; % Show InquiryData 

$$ ENDSEGMENT 
$$ PAGE 



0061218001.005.000 
-0061220001.005.000 
0061222001.005.000 
0061224001.005.000 
0061226001.005.000 
0061228001.005.000 
0061230001.005.000 
0061232001.005.000 
0061234001.005.000 
0061236001.005.000 
0061238001.005.000 
0061240001.005.000 
0061242001.005.000 
0061244001.005.000 
0061246001.005.000 
0061248001.005.000 
0061250001.005.000 
0061252001.005.000 
0061254001.005.000 
0061256001.005.000 
0061258001.005.000 
0061260001.005.000 
0061262001.005.000 
0061264001.005.000 
0061266001.005.000 
0061268001.005.000 
0061270001.005.000 
0061272001.005.000 
0061274001.005.000 
0061276001.005.000 
0061278001.005.000 
0061280001.005.000 
0061282001.005.000 
0061284001.005.000 
0061286001.005.000 
0061288001.005.000 
0061290001.005.000 
0061292001.005.000 
0061294001.005.000 
00613000 
00614000 



00615000 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%00616000 
% Verification Block 00617000 

%%%%%%%«%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 00618000 

00619000 

PROCEDURE READFCN; 
BEGIN 



SHOW (" » f 
SHOW ("»»»»»»»»»» ATTENTION ««««««««««", 
IF NOT ATODT THEN % AT A TERMINAL 
BEGIN 

READ the appropriate FCN for this firmware file 1 
before downloading the firmware ' 



TRUE) ; 
TRUE) j 



% AT AN ODT 



0061905001002"0002 
00619100010020002 
00619150010020002 
00619200010020002 
00619250010020002 
00619300010020002 
00619350010020002 
00619400010020002 
00619450010020003 
00619500010020002 
00619550010020002 
00619600010020002 
TRUE); 00619650010020003 
00619700010020002 
00619750010020002 
00619800010020002 
00619850010020002 
00619900010020002 
00619950010020002 
00620000 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%00621000 
% PROCEDURE USERPROCESS 00622000010020002 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%00623000 

00624 000 

PROCEDURE USERPROCESS; 00625000 



SHOW ( 
SHOW ( 
END 
ELSE 
BEGIN 

SHOW (" before downloading the firmware 
SHOW (" READ the appropriate FCN for this firmware file 
END; 

SHOW ("»»»»»»»»»» ATTENTION ««««««««««", TRUE); 
SHOW (" « f TRUE); 

END; % PROCEDURE READFCN 



TRUE) ( 
TRUE) j 



TRUE) 



t" 



1- ) 



2.) 



TRUE ) 
" , TRUE ) 



BEGIN 

LABEL LOOPER; 

%*IF NOT ATODT THEN % AT A TERMINAL 

%*BEGIN 

SHOW ("DFAST is a firmware download utility for SCSI disk drives", TRUE) 
SHOW {"and/or SBC Controllers. 
SHOW (" 
SHOW (° 
SHOW 
SHOW 
SHOW (" 
SHOW (" 
SHOW ( n 
SHOW (" 
SHOW ( B 
SHOW ( n 
SHOW (" 
SHOW (" 

IF NOT ATODT THEN 
WAIT ( (5) ) ; 

SHOW ("The process follows the following format: 
SHOW [" 

) The user is asked to select one of four options: 
1.) •Ctlload 1 - select a SBC unit type. 

1 Devload 1 - select a SCSI disk drive unit type. 
'Verifyfile 1 - check and display firmware file 
header information without 



DFAST requires: 

Firmware input file on disk or tape; e.g., 

(UCODE) FWFILE/123 ON ANY PACK - if on disk 
or 

(UCODE) FWFILE/123 - if on tape 

A target (SCSI disk drive or SBC Controller) 
that has been reserved (URed) . 



00626000 
00627000 
00628000 
006.29000 
00630000 
;00631000 
;00632000 
;00633000 



" , TRUE ) ;00634000 
TRUE) ;00635000 



3.) '<Mix #> AX* when responding to a prompt. 



2. ) 

3. ) 



SHOW ("A 

SHOW (" 

SHOW ( 

SHOW (" 

SHOW (" 

SHOW (" 

SHOW (" 4 

SHOW ( "B. ) 

SHOW (" 

SHOW ("C. ) 

SHOW (" 

SHOW {" 

IF NOT ATODT THEN 

WAIT ( (5)); 

SHOW ( "D. ) If 'Ctlload 



r 00636000 
; 00637000 
; 00638000 
;00639000 
;00640000 
;00641000 
; 00642000 
? 00643000 
;0064400O 
00645000 
00646000 
" , TRUE) ; 00647 000 
" , TRUE ) ; 00648000 
?00649000 

; 00650000010020003 
0065100001.005.000 
; 00652000010020003 
; 00653000010020003 



" , TRUE) j 
TRUE ) j 
" , TRUE ) j 
" , TRUE ) j 
" , TRUE ) j 
" , TRUE ) ; 
" , TRUE ) ; 

TRUE ) i 
" , TRUE ) ; 



" , TRUE ) i 
" , TRUE ) ; 
\ TRUE) ; 
" , TRUE ) ; 
* , TRUE ) j 



performing a download to the target . n , TRUE ) ; 00654 00001002 0003 



" , TRUE ) ; 00655000010020003 

TRUE ); 00656000 
" , TRUE ) ; 00657000 



SHOW (" 

SHOW (" 

SHOW ("a. ) 

SHOW ("b.) 

SHOW {" 

SHOW (" 

SHOW (" 

SHOW (" 

SHOW (" 

SHOW { 

SHOW (" 

SHOW (" 

SHOW (" 

SHOW (" 

SHOW (" 

SHOW ( 

SHOW {" 

SHOW (" 

SHOW ("e 

SHOW (" 



) 'Quit 1 ■• - exit DFAST - 

The user is prompted for a firmware file name or 
'Quit 1 to exit DFAST. 

If the file is validated as a firmware file, the new " , TRUE ); 00658000 
firmware level is displayed; otherwise the program ", TRUE ); 00659000 
returns to step 'B 1 . " f TRUE) ; 00660000 

00661000 
00662000 
" ,TRUE) ; 00663000 
" r TRUE ) ; 00664 000 
",TRUE);00665000 



" , TRUE ) j 
" , TRUE ) j 



'c. ) 



"d. ) 



or 'Diskload 1 was entered in step f A', 
then for every SCSI disk or SBC unit number entered, 
steps 'a' through 'e 1 below are performed. 
Target attributes are obtained and displayed. 
If download is not allowed (due to mismatch of file/ 
target Firmware level, Product ID or Vendor ID), the W ,TRUE) 
process stops for that unit, and the user is asked W ,TRUE) 
to enter another target number of the same unit type 
or 'End' to return to step 'A', 
otherwise: 

If the SCSI drive (not SBC) requires f ormatting (IVR) 
after the download, the user is consulted to: 

i. ) continue with the firmware download -or- 

ii. ) stop the process for that unit (to back up data 
on that drive) and select another target of the 
same unit type, or 'End 1 to return to step 'A 1 . 

After the download is complete and the target has 
sequenced, the INQUIRY command is reissued, and the 
new firmware level of the target is displayed. 
The user is prompted to enter another target number 



IF NOT ATODT THEN 

WAIT ((5)); 
%*END 

$$ SET OMIT 
ELSE 



of the same unit type or 'End' to return to step 'A 1 



% AT AN A-SERIES CONSOLE 



BEGIN 



SHOW 




SHOW 


r 


SHOW 


( n 


SHOW 


(" 


SHOW 


(" 


SHOW 


(" 


SHOW 


(" 



QUIT the program. 

another device type or Firmware file or 

or SBC) or exit to outer block to select 
f.) Loop back for next unit of same type (disk 
e.) If error free, the process completes. 

the process for that unit. 

either continue with downloading or stop 



00666000 
00667000 
00668000 
00669000 
", TRUE) ; 00670000 
n ,TRUE); 00671000 
",TRUEJ; 00672000 
n , TRUE ); 00673000010020004 
" , TRUE ) ;00674000 
W ,TRUE) ;00675000 
",TRUE); 00676000 
00677000 
00678000 
00679000 
00680000 
00681000 
00682000 
00683000 
00684000 
00685000 
00686000 
00687000 
00688000 
00689000 
TRUE) ; 00690000 
TRUE); 00691000 
TRUE); 00692000 
TRUE) ; 00693000 
TRUE); 00694000 
TRUE); 00695000 
TRUE); 00696000 



" , TRUE ) j 
TRUE) ; 
",TRUEJ j 
" , TRUE ) j 
",TRUEJ j 
" , TRUE ) j 
. n , TRUE ) j 



d. ) 



c. ) 
b. ) 
a. ) 



after download, the user is consulted to ", TRUE) 
If the drive (not SBC) requires formatting ", TRUE) 
(IVR) otherwise TRUE) 
Vendor ID) the process stops for that unit.", TRUE) 
of unit/ file Firmware level. Product ID or TRUE) 
If download is not allowed (due to mismatch", TRUE) 
Unit information is obtained (INQUIRY). TRUE ) 

The unit must be RESERVED (URed) . ", TRUE) 

for every Disk or. SBC unit entered by the user: TRUE) 
If the firmware file is read in properly, then ", TRUE) 
("The process follows the following format: TRUE) 

", TRUE) 

2.) SCSI Disk Drive or SBC Controller ", TRUE) 

e.g., (UCODE) FWFILE/123 ON ANY PACK TRUE) 
1.) Firmware input file TRUE) 
drives and/o.r SBC Controllers. DFAST requires: ", TRUE) 
)FAST is a firmware download utility for SCSI disk", TRUE) 



LOOPER: 

START " Do you want to continue? Enter 1 YES 1 or 'NO 1 
PROMPT; 

IF PL = "N" THEN 

GO GRANDXIT 
ELSE 

IF PL NEQ "Y" THEN 
GO LOOPER; 

END; % BOOLEAN PROCEDURE USERPROCESS 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

BOOLEAN PROCEDURE OKTO FORMAT; 
BEGIN 

IF NOT EXPRESSMODE THEN 
BEGIN 
SHOW (" 



SHOW 




euntJ 


i " 
I 




t n 

\ 


cunw 


t n 


otiUW 


t n 


artUA 


I 


OfUJrV 




OUAM 

onuw 


( 




( 


SHOW 


t n 


SHOW 


( "' 


SHOW 


(" 


SHOW 


(" 


SHOW 


(" 


SHOW 


(" 


SHOW 


(" 


SHOW 


("I 


END; 




$$ POP OMIT 


READFCN; 



1 , TRUE ) ; 



% AT A TERMINAL 



IF NOT ATODT THEN 
BEGIN 

SHOW (">»WARNING, DRIVE NEEDS FORMAT (IVR) AFTER DOWNLOAD", TRUE); 
SHOW ("»>WARNING, DRIVE NEEDS FORMAT (IVR) AFTER DOWNLOAD", TRUE) J 
SHOW ("»>WARNING P DRIVE NEEDS FORMAT ( IVR ) AFTER DOWNLOAD", TRUE) j 
SHOW ("»>WARNING, DRIVE NEEDS FORMAT (IVR) AFTER DOWNLOAD", TRUE) J 
SHOW ( "»>WARNING, DRIVE NEEDS FORMAT ( IVR ) AFTER DOWNLOAD", TRUE); 
END 

ELSE % AT AN A-SERIES CONSOLE 

BEGIN 

SKIPODTPRINT := TRUE; % Display to console only - don't print 
SHOW ("»>WARNING, DRIVE NEEDS FORMAT ( IVR ) AFTER DOWNLOAD", TRUE); 

DRIVE NEEDS FORMAT (IVR) AFTER DOWNLOAD", TRUE); 
DRIVE NEEDS FORMAT (IVR) AFTER DOWNLOAD", TRUE); 
DRIVE NEEDS FORMAT (IVR) AFTER DOWNLOAD", TRUE); 
DRIVE NEEDS FORMAT (IVR) AFTER DOWNLOAD", TRUE); 
SKIPODTPRINT :« FALSE; % Print only - don't display to console 
SHOW ("»>WARNING, DRIVE NEEDS FORMAT (IVR) AFTER DOWNLOAD", FALSE 
SHOW ("»>WARNING / DRIVE NEEDS FORMAT (IVR) AFTER DOWNLOAD", FALSE 
SHOW ("»>WARNING, DRIVE NEEDS FORMAT (IVR) AFTER DOWNLOAD", FALSE 
SHOW ("»>WARNING, DRIVE NEEDS FORMAT (IVR) AFTER DOWNLOAD", FALSE 
SHOW ( "»> WARNING, DRIVE NEEDS FORMAT (IVR) AFTER DOWNLOAD", FALSE 
END; 



SHOW ("»>WARNING, 

SHOW (">»WARNING, 

SHOW ("»>WARNING, 

SHOW (">»WARNING, 



SHOW (" 
SHOW (" 
SHOW (" 

END; % IF NOT EXPRESSMODE 



USER BEWARE ! ! ! ! 



TRUE J ; 
TRUE ) ; 
TRUE ) ; 



00697000 
00698000 

00699000010020004 

00700000 

00701000 

00702000 

00703000 

00704000 

00705000 

00706000 

00707000 

00708000 

00709000 

00710000 

00711000 

00712000 

00713000 

00714000 

00715000 

00730000 

00730200010020002 

00730400010020002 

00731000 

00732000 

00733000 

00734000 

00735000 

00736000 

00737000 

00738000 

00739000 

00740000 

00740200010020003 
%00740400010020003 
00741000 
00742000 
00743000 
00744000 

00744200010020003 

00744400010020003 

00745000 

00746000 

00747000 

00748000010020003 
00749000010020004 
00750000010020004 
00751000010020004 
00752000010020004 
00753000010020004 
00754000010020003 
00755000 

00756000010020003 

00756500010010001 

00757000010020004 

00758000010020004 • 

00759000010020004 

00760000010020004 

00761000010020004 

00761100010010001 

00761200010020004 ■ 

00761300010020004 

00761400010020004 

00761500010020004 

00761600010020004 

00762000010020003 

00763000 

00764000 

00765000 

00766000 

00766500010020003 
00767000 



SHOW ("Unit " C CTLUNIT FOR * DIGITS C " will need formatting " C 

n (IVR) after firmware is loaded!", TRUE); 
SHOW (" », TRUE); 

SHOW ("DO YOU STILL WANT TO CONTINUE WITH THE DOWNLOAD? ", TRUE); 
START "Answer 1 YES * or ■NO'"; 
PROMPT; 

IF PL « n Y" THEN 

OKTO FORMAT := TRUE 
ELSE' 

OKTO FORMAT :« FALSE; 
END; % PROCEDURE OKTO FORMAT 
BOOLEAN PROCEDURE VALI DAT EACODE ; 

% 

% Purpose: 

% The user has received an unknown file from somewhere. 
% He wants to see if it is a valid SBC firmware file. 
% 

% Procedure Result: 

% True The code file is valid. 

% False Invalid file for the target. 

% 

% Assumptions: 

% We don't trust the caller. 

% 

BEGIN 

REAL X; 

INTEGER FK; 

BOOLEAN RSLT; 

LABEL XI T; 



RSLT := TRUE; 



SHOWIT ( FALSE ) ; 
IF EXPRESSMODE THEN 

SHOW ("File Validation Report :", FALSE ) 
ELSE 

SHOWPFile Validation Report :", TRUE ) ; 

START "Code file:"; 
PUT(TXTLOCIS) CODE. TITLE; 
IF EXPRESSMODE THEN 

SHOWIT (FALSE) 
ELSE 

SHOWIT (TRUE ) ; 

START "Customer ID:"; 

PUT(TXTLOC30) 
n >v w 

HDR[CUSTIDLOC] FOR CUSTIDLNG, 

^ r 

IF HDR[CUSTIDLOC] NEQ CUSTIDEXP THEN 
BEGIN 

SHOWIT (TRUE) ; 

START " Expecting:"; 

PUT ( TXTLOC30 ) 

11 n 

r 

CUSTIDEXP, 
"<"; 
SHOWIT (TRUE) ; 
RSLT := FALSE; 
END 
ELSE 

IF EXPRESSMODE THEN 

SHOWIT (FALSE) 
ELSE 

SHOWIT (TRUE); 

START "Vendor ID:"; 
PUT(TXTLOC30) 



% Assume good file 
% Blank line 



00770000010010001 

00771000010020004 

00778000010010001 

00779000010010001 

00780000010010001 

00781000 

00782000 

00783000 

00784000 

00785000 

00786000 

00787000 

00788000 

00789000 
-00790000 

00791000 

00792000 

00793000 

00794000 

00795000 

00796000 

00797000 

00798000 

00799000 

00800000 
-00801000 

00802000 

00803000 

00804000 

00805000 

00806000 

00807000 

00808000 

00809000 

00810000 

00810200010020003 

00810400010020003 

00810600010020003 

00811000010020003 

00813000 

00814000 

00815000 

00815200010020003 

00815400010020003 

00815600010020003 

00816000010020003 

00817000 

00818000 

00819000 

00820000 

00821000 

00822000 

00823000 

00824000 

00825000 

00826000 

00827000 

00828000 

00829000 

00830000 

00831000 

00832000 

00833000 

00834000 

00834200010020003 

00834400010020003 

00834600010020003 

00835000010020003 

00836000 

00837000 

00838000 



r 

HDR [VENDORIDLOC] FOR VENDORI DLNG , 
n <"; 

IF HDR [VENDORIDLOC] NEQ VENDORIDEXP THEN 
BEGIN 

SHOWIT (TRUE) ; 

START n Expecting:"; 

PUT(TXTLOC30) 

ti -v. n 

t 

VENDORIDEXP, 
"<"; 
SHOWIT (TRUE) ; 
RSLT :« FALSE; 
END 
ELSE 

IF EXPRESSMODE THEN 

SHOWIT [ FALSE ) 
ELSE 

SHOWIT (TRUE ) ; 

START "New Firmware Level:"; 
PUT(TXTLOC30) 
^ r 

HDR[NEWFWLEVELOC] FOR NEW FWLE VE LNG , 

IF EXPRESSMODE THEN 

SHOWIT (FALSE) 
ELSE 

SHOWIT ( TRUE ) ; 



XIT: 

VALI DATEACODE := RSLT; 
SHOWIT ( FALSE ) ; 
END; % Validate Acode File 



% Blank line 



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
% Compare Product IDs of Target and Input File 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

BOOLEAN PROCEDURE COMPPRODIDS; 
BEGIN 

BOOLEAN TARGETMATCH ; 
INTEGER I, DRIVELOC ; 

% Scan through valid Drive IDs in firmware file & match with Target 



I := 0; 

DRIVELOC :« DRIVEIDLOC; 



% STARTING LOCATION IN HEADER RECORD 



WHILE (((I:= *+l) LEQ NUMDRIVEID) AND {NOT TARGETMATCH)) DO 
BEGIN 

TARGETMATCH := T PRODI D = HDR [DRIVELOC] FOR DRIVE I DLNG; 
IF DEBUG THEN 

SHOW ("FILE PRODID-LOOP « " C HDR [DRIVELOC] FOR DRIVEI DLNG, TRUE ) 
DRIVELOC := * + DRIVE I DLNG; 
END; 

IF NOT TARGETMATCH THEN 
BEGIN 

SHOW ("No match found in firmware file for Target " C 
CTLUNIT FOR * DIGITS C 
" with product ID » " C 
TPRODID FOR DRIVE I DLNG, TRUE ) ; 

SHOW ("« Download will NOT take place, »",TRUE); 

COMPPRODIDS :« FALSE; 

END 
ELSE 

COMPPRODIDS := TRUE; 
END; % PROCEDURE COMPPRODIDS 



00839000 
00840000 
00841000 
00842000 
00843000 
00844000 
00845000 
00846000 
00847000 
00848000 
00849000 
00850000 
00851000 
00852000 
00853000 

00853200010020003 

00853400010020003 

00853600010020003 

00854000010020003 

00855000 

00856000 

00857000 

00858000 

00859000 

00860000 

00860200010020003 
00860400010020003 
00860600010020003 
00861000010020003 
00862000 
00863000 
00864000 
00865000 
00866000 
00867000 
00868000 
%00869000 

%00870000010010001 
%00871000 
00872000 

00873000010010001 
00874000 
00875000 
00876000 
00877000 
00885000 
00886000 
00887000 
00888000 
00889000 
00890000 
00891000 
00892000 
00893000 
; 00894000 
00895000 
00896000 
00897000 
00898000 
00899000 
00900000 
00901000 
00902000 
00903000 
00904000 

00905000010010001 

00906000 

00907000 

00908000010010001 
00909000 

00910000010010001 



%%%%%%%%%%%%%%%%%%%%%%%%%%% %%% - %%%%%f%%%%%%%%%%%%%%%%%%%%%%%%%%%%t%%1%%%% JJJJJgJJ 

% Store Firmware File Information 00913000 

««*%**%%%»%»%%*%%%%%l%%%%%%%l%%%%%%%%%%%%%%%»%% %%%m%%%%l%ll%%%%%%%1%0091400 J 

PROCEDURE STORE FWFILEINFO; " 00915000 
BEGIN 



INTEGER I; 



% Assign Code file information from header record to program variables 



REPLACE FCUSTID [0] 
REPLACE FN EWFWLE VE L [0] 
REPLACE FVENDORID [0] 



FHDRBYTES 
FCODE BYTES 
NUMDRIVEID 
NUMRE PFWLVLS 
DRIVEIDLOC 



BY HDR [CUSTIDLOC] 
BY HDR [NEWFWLEVELOC] 
BY HDR [VENDORIDLOC] 
= INTEGER {HDR [HDRECSIZELOC] , 
= INTEGER (HDR [ FWCODESIZELOC] , 

- INTEGER (HDR [NUMDRIVEIDLOCJ , , , , 

= INTEGER (HDR [NUMREPFWLVLSLOC], NUMREPFWLVLSLNG); 
= NUMREPFWLVLSLOC + NUMREPFWLVLSLNG + 
( NUMRE PFWLVLS * OLDFWLEVELNG) ; 



FOR CUSTIDLNG; 
FOR NEWFWLEVELNG; 
FOR VENDORI DLNG ; 

HDRECSI2ELNG) ; 

FWCODESIZELNG J ; 

NUM DRIVE I DLNG ) ; 



IF DEBUG THEN 
BEGIN 

SHOW ("FROM FILE — " C 

"CUSTID : " C 

". NEW FW LEVEL : " C 

SHOW ("FROM FILE — " C 

"VENDORI D : " C 

". HEADERBYTES : n C 

SHOW ("FROM FILE — " C 

"CODEBYTES : " c 
". RE PFWLVLS : " C 

SHOW ("FROM FILE — " C 

"NUM DRIVES : " C 

". DRIVEIDLOC: " C 
END; 

IF NOT VERIFYONLY THEN 



FCUSTID 

FN EWFWLE VEL 



FOR CUSTIDLNG 

FOR NEWFWLEVELNG, TRUE ) ; 



FVENDORID FOR VENDORI DLNG 

FHDRBYTES FOR HDRECSI ZELNG DIGITS, TRUE ); 00938000 

00939000 

FCODEBYTES FOR FWCODESIZELNG DIGITS C 00940000 
NUMRE P FWLVLS FOR NUMREPFWLVLSLNG DIGITS, TRUE ); 00941000 

00942000 

NUMDRIVEID FOR NUMDRI VE I DLNG DIGITS C 00943000 
DRIVEIDLOC FOR DRIVE I DLNG DIGITS, TRUE) ; 00944000 

00945000 



00916000 
00917000 
00918000 

00918200010040006 
00918400010040006 
.00919000 
00920000 
00921000 
00922000 
00923000 
00924000 
00925000 
00926000 
00927000 
00928000 
00929000 
00930000 
00931000 
00932000 
00933000 
00934000 
00935000 
00936000 
00937000 



DIGITS; 



BEGIN 

% Resize the IML buffer 
% SHOW("RESIZE THE I ML BUFFER. TRUE ) ; 
IF FCODEBYTES >= SYSCAP THEN 
BEGIN 

NROWS := FCODEBYTES DIV EIGHTK; 
% REPLACE SCR[0] BY "NR0WS= NROWS FOR 
% WRITE (RMT,*//, SCR); 

IF NROWS >= MAXROWS THEN 
BEGIN 

RESIZE ( IMLBUF2 [ * , * ] , MAXROWS, RETAIN) ; 
NROWS :~ MAXROWS; 
NROWS := * - 1; 

FOR I:» 0 STEP 1 UNTIL NROWS DO 
BEGIN 

% SHOW(" I « " C I FOR * DIGITS, TRUE ) ; 

RESIZE ( IMLBUF2 [I, * ] , EIGHTK, RETAIN ) ; 
END; 



IMLP2 
NROWS 
NROWS 



IMLBUF2[0,*] , 



% ASSIGN POINTER 
(FCODEBYTES - SYSCAP) DIV EIGHTK; 
* + 1; 



RESIZE ( IMLBUF3 [*,*], NROWS, RETAIN ) ; 
NROWS :=*-!; 

FOR I:= 0 STEP 1 UNTIL NROWS DO 
BEGIN 

SHOW{" I - " C I FOR * DIGITS, TRUE) ; 
RESIZE ( IMLBUF3 [I, * ] , EIGHTK, RETAIN ) ; 
END; 

IMLP3 := IMLBUF3[0,*] ; 
END 



END 



00945500010020004 
00946000010020004 
00946200010020004 
00946400010020004 
00947000 

0094750001.005.000 

0094800001.005.000 

00948500010040006 

00949000010040006 

0094902001.005.000 

0094904001.005.000 

0094906001.005.000 

0094908001.005.000 

0094920001.005.000 

0094925001.005.000 

0094930001.005.000 

0094940001. 005.000 

0094950001.005.000 

0094 955001. 005.000 

0094960001.002.006 

0094980001.005.000 

0095000001.005.001 

0095010001.005.001 

0095015001.005.000 

0095020001.005.001 

0095030001.005.001 

0095040001.005.001 

0095050001.005.001 

0095055001.005.000 

0095060001 . 005. 000 

0095070001.005.001 

0095080001.005.001 

0095090001.005.001 

00951000010040006 



% 



ELSE 

RESIZE (IMLBUF, FCODEBYTES, DISCARD) ; 
• IMLP :« IMLBUF; 

SHOW ( "ASSIGN POINTER TO RESIZED IMLBUF. 
% Build I ML image from Code File 



00951200010040006 
00951400010040006 
00951600010040006 
1 , TRUE ) ; 0095180001.005.000 

00952000 
00953000 

00953500010020003 
00954000010020003 
00955000 

% The LAST record of firmware code for SBC is transferred to the buf f er00956000 
% with the existing NULL padding at the end of that record. The SBC 00957000 
% parses out those NULLS in its internal buffer before processing the 
% data. 



IF NOT EXPRESSMODE THEN 

SHOW( "Building FW image in buffer . " , TRUE ) ; 



% The LAST record of Firmware code for drives is transferred to the 
% buffer with only valid data (no NULLS are included) . The drives 
% process the entire buffer as valid data. 

IF FCODEBYTES >= 393216 THEN 
BEGIN 
I :=0; 
SOFAR := 0; 

WHILE SOFAR < SYSCAP DO 
BEGIN 

% REPLACE SCR[0] BY n SOFAR= 
% WRITE (RMT, *// , SCR) ; 
% DISPLAY (SCR); 



SOFAR FOR 



DIGITS; 



READ ( CODE , CODEMRS , CODEREC ) ; % CODEMRS = 8192 

PC :« CODEREC [0]; % ASSIGN POINTER PC TO CODEREC 

IF OPTODO - UNASSIGNCTLV THEN % CODE IS FOR SBC 

REPLACE IMLBUF2[I,*] BY PC FOR CODEMRS 
ELSE % CODE IS FOR DRIVE 

BEGIN 

IF (FCODEBYTES - SOFAR) >= CODEMRS THEN % HAVE FULL DATA RECORD0097 4 00001004 0006 
REPLACE IMLBUF2[I,*] BY PC FOR CODEMRS 00 97 500001004 0006 

ELSE REPLACE IMLBUF2[I,*] BY PC 0097 6000010040006 

FOR (FCODEBYTES - SOFAR); % LAST 00 97 650001004 0006 

END; % PARTIAL REC00 97 700001 004 0006 



00958000 
00959000 
00960000 
00961000 
00962000 
00963000 

00963200010040006 
0096340001. 005.000 
00963600010040006 
00964500010040006 
00965000010040006 
0096600001.005.000 
0096700001.005.000 
0096720001.005.000 
0096740001. 005. 000 
0096760001.005.001 
00968000010040006 
00969000010040006 
00970000 

00971000010040006 
00972000 

00973000010040006 



I := * + IN- 
SOFAR := * + CODEMRS; 
END; 

WHILE (FCODEBYTES - SOFAR) > 0 DO 
BEGIN 
I :« 0; 

READ ( CODE , CODEMRS , CODEREC J ; 

PC := CODEREC [0] ; 

IF OPTODO - UNASSIGNCTLV THEN 

REPLACE IMLBUF3[I,*] BY PC FOR CODEMRS 
ELSE 

BEGIN 

IF (FCODEBYTES - SOFAR) >= CODEMRS THEN 

REPLACE IMLBUF3[I,*] BY PC FOR CODEMRS 
ELSE 

REPLACE IMLBUF3[I,+] BY PC FOR (FCODEBYTES - SOFAR); 

END; 
I := * + 1; 
SOFAR :=* * + CODEMRS; 
END; 
END 
ELSE 
BEGIN 
SOFAR := 0; 

WHILE SOFAR < FCODEBYTES DO 
. BEGIN 

READ ( CODE , CODEMRS , CODEREC ) ; 
PC := CODEREC [0] ; 

IF OPTODO = UNASSIGNCTLV THEN % CODE IS FOR SBC 

REPLACE IMLP: IMLP BY PC FOR CODEMRS 
ELSE % CODE IS FOR DRIVE 

BEGIN 

IF ( FCODEBYTES - SOFAR) >= CODEMRS THEN % HAVE FULL DATA RECORD 



00977500010040006 

00978000 

00979000 

0097 905001.005.000 

0097910001.005.000 

0097915001.005.000 

0097920001.005.000 

0097925001.005.000 

0097930001.005.000 

0097 935001.005.000 

0097940001.005.000 

0097945001.005.000 

0097950001.005.000 

0097955001.005.000 

0097960001.005.000 

0097965001.005.000 

0097970001.005.000 

0097975001.005.000 

0097980001.005.000 

0097985001.005.000 

00980000010040006 

00980050010040006 

00980100010040006 

00980150010040006 

00980200010040006 

00980250010040006 

00980300010040006 

00980350010040006 

00980400010040006 

00980450010040006 

00980500010040006 

00980550010040006 

00980600010040006 



REPLACE IMLP : IMLP BY PC FOR CODEMRS 
ELSE REPLACE IMLP: IMLP BY PC FOR ( FCODE BYTES - SOFAR) ; 
END; 

SOFAR := * + CODEMRS; 
END; 
END; 
END; 

END; % PROCEDURE ST ORE FW FILE INFO 



00980650010040006 
LAST 009807 0001004 0006 

PARTIAL RECO098075OO1004O006 
00980800010040006 
00980850010040006 
0098090001.002.004 
00980950010040006 
00981000 
00982000 

%%%%%%% %%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%00983000 



Procedure VERIFY FILE 
Procedure VERIFY FILE 



VALUE(IN) ; 
VALUE (TAPE) ; 
TRUE; 



PROCEDURE VERIFY FILE; 
BEGIN 

INTEGER N, X; 

LABEL GETCODE; 

% Request name of code file 

GETCODE : 

CLOSE (CODE) ; 
CODE. FILEUSE 
CODE. KIND 
. CODE . DE PENDENTS PECS 
REPLACE TTL [ 0] BY " " ; . 
WHILE TTL [ 0] = " " DO 
BEGIN 
START 

"Enter name of code file or , Quit ,n ; 
PROMPT; 

IF LL > 0 THEN " 
BEGIN 

IF PL = "Q" THEN 
GO GRANDXIT; 

X :» LL; 

REPLACE L[LL+1] BY "."; 

SCAN PL FOR N:LL UNTIL » "."; 

REPLACE TTL [0] BY PL FOR LL UNTIL = "."; 
REPLACE CODE. TITLE BY TTL [ 0 ] ; 
IF CODE .ATT ERR THEN 
BEGIN 
BLANK; 

SHOW ("Attribute error .setting CODE file title", TRUE) ; 
GO GETCODE; 
END; 
END; % LL > 0 
END; % WHILE 

% Attempt to locate and open code file 

% A DISK file must have 1 ON < PACKNAME> 1 in the title declaration 
% (e.g., (UCODE)ABC/123 ON DISK) , otherwise it defaults to a TAPE file, 
% If the scan ends with a "." instead of a n ", then a tape type is 
% assummed, because a disk file would require a " n for the "ON PACK" 
% part of the title declaration. 



SCAN PL: PL 



TTL [0] FOR N:X UNTIL IN ENDER; 



% OPEN TAPE 



ALLOW FOR TAPE FILE EQUATE 
DISK FILE 



% DISK FILE NOT AVAILABLE 



IF PL = "." THEN 

OPEN (CODE) 
ELSE IF CODE. AVAILABLE = 1 THEN 

CODEEOF :~ CODE . LASTRE CORD 
ELSE 
BEGIN 

SHOW ("The disk file name entered is NOT AVAILABLE" , TRUE); 

GO GETCODE; 

END; 

CODEMRS := EIGHTK; 

IF SIZE(HDR) < CODEMRS THEN 



%00984000 
%0098500001. 
00986000 
00987000 
00988000 
00989000 
00990000 
00991000 
00992000 
00993000 
00994000 
00995000 
00996000 
00997000 
00998000 
00999000 
01000000 
01001000 
01002000 
01003000 
01004000 
01005000 
01006000 
01007000 
01008000 
01009000 
01010000 
01011000 
01012000 
01013000 
01014000 
01015000 
01016000 
01017000 
01018000 
01019000 
01020000 
01021000 
01022000 
01023000 
01024000 
01025000 
01026000 
01027000 
01028000 
01029000 
01030000 
01031000 
01032000 
01033000 
01034000 
01035000 
01036000 
01037000 
01038000 
01039000 
01040000 
01041000 
01042000 
01043000 
01044000 



005.000 



BEGIN 

RESIZE ( HDR, CODEMRS, DISCARD} ; 
RESIZE ( CODEREC, CODEMRS, DISCARD) ; 
END; 

READ ( CODE , CODEMRS , CODEREC ) ; 

REPLACE HDR BY CODEREC FOR SIZE (HDR) WITH ASCIITOEBCDIC; 

% See if code file is a valid TARGET code file 

IF VALI DATEACODE THEN 
BEGIN 

IF EXPRESSMODE THEN 

SHOW("File is a valid TARGET code file", FALSE) 
ELSE 

SHOW("File is a valid TARGET code file", TRUE) ; 
SHOWIT { FALSE > ; 
STORE FW FILE INFO; 
- END 
ELSE 
BEGIN 

SHOW ("File is -not- a valid TARGET code file", TRUE); 
SHOWIT (FALSE); % Blank line 

GO GETCODE; 
END; 

END; % Verify File 



01045000 
01046000 
01047000 
■01048000 
01049000 
01050000 
01051000 
01052000 
01053000 
01054000 
01055000 
01056000 

01056200010020003 

01056400010020003 

01056600010020003 

01057000010020003 

01058000 

01059000 

01060000 

01061000 

01062000 

01063000 

01064000 

01065000 

01066000 

01067000- 

01068000 



01069000 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 0107 0000 
% Compare Firmware Levels of Target and Input File 01071000 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 01 072000 

01073000 

BOOLEAN PROCEDURE COMPFWLEVELS; 
BEGIN 



INTEGER 
BOOLEAN 



FWFILELOC, I; 
FWLEVELSMATCH; 



I :« 0; 

% WANT LOWER FOUR BYTES (3,2,1,0) 



OF 8 BYTE FIELD 



FWFILELOC NUMRE P FWLVLSLOC ; % OFFSET BY '4* FOR PROPER LOOPING 

% INCREMENT BELOW. 
LEQ NUMREPFWLVLS) AND (NOT FWLEVELSMATCH) ) DO 



WHILE ( ( (I:= *+l 
BEGIN 

FWLEVELSMATCH 



01074000 
01075000 
01076000 
01077000 
01078000 
01079000 
01080000 
01081000 
01082000 
01083000 
01084000 
01085000 
01086000 
01087000 
01088000 



TPRODREVLVL = HDR [ ( FWFILELOC:= *+ OLDFWLEVELNG)] 
FOR NEWFWLEVELNG; 

IF DEBUG THEN % SHOW ENTIRE 7 OR 8 BYTES OF FILE ENTRY0108 9000 

% IF NULLS ARE PRINTED, OUTPUT IS LOST. 0108 9100010010001 
UNASSIGNUNITV THEN 



IF OPTODO 
BEGIN 

IF HDR [ ( FWFILELOC - 4)] > 
SHOW ( "FILE FW-LOOP = > 



ELSE 



4 8"00 n THEN % BYTE [0] = NULL 

C HDR [(FWFILELOC - 3)] 

FOR (OLDFWLEVELNG - 1) C "<", TRUE) 
% BYTE [0] NEQ NULL. FORMAT REQUIRED FOR SCSI DRIVES 



SHOW ("FILE FW-LOOP = >" 



C HDR [ ( FWFILELOC - 
FOR OLDFWLEVELNG 



END 
ELSE 



4)] 

C "<", TRUE); 



% FOR SBC 
SHOW ("FILE FW-LOOP 
C "<", TRUE); 



>" C HDR [FWFILELOC] FOR NEWFWLEVELNG 



END; 



% NO MATCH FOUND 



IF NOT FWLEVELSMATCH THEN 
BEGIN 

SHOW ("« Firmware level of target is NOT in input file. 
SHOW ("« Download will NOT take place. »", TRUE); 
COMPFWLEVELS := FALSE; 
END 
ELSE 

BEGIN 



»",TRUE) 



01089200010010001 
01089400010010001 
01090000 
01091000 
01092000 
01033000 
01094000 
01095000 

01095200010010001 

01095400010010001 

01095600010010001 

01095800010010001 

01096000 

01097000 

01098000 

01099000 

01100000 

01101000 

01102000 

01103000 

01104000 

01105000 



IF OPTODO = UNASSIGNUNITV THEN % Drives only. Get full 8 bytes 01106000 

BEGIN 01107000 
REPLACE SAVE FWLVL [0] BY HDR [(FWFILELOC - 4)] FOR OLDFWLEVELNG 
IF DEBUG THEN 

SHOW ( " SAVE FWLVL { FORMAT ( I VR ) NEEDED? -BYTE [0] NEQ. 48 1 00 ' ) = >" 
SAVE FWLVL FOR OLDFWLEVELNG C n <", TRUE); 

END; 

COMPFWLEVELS :« TRUE; 
END; 



01108000 
01109000 
C01110000010020004 
01111000 
01112000 
01113000 
01114000 
01115000 
01116000 



END; % PROCEDURE COMPFWLEVELS 

%%%%%%%%%%«%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%4%%%%%%%%%%%%01U601001.005.000 

% Compare SERVO Firmware Levels of Target and Input File 0111602001.005.000 

%%%%%%%%%%%%%*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%0111603001. 005 . 000 

0111604001.005.000 

BOOLEAN PROCEDURE COMPSERVOFWLVLS; 
BEGIN 



INTEGER 
BOOLEAN 



FWFILELOC, I; 
FWLEVELSMATCH; 



I :« 0; 

% WANT LOWER FOUR BYTES (3,2,1,0) OF 8 BYTE FIELD 



FWFILELOC : 

WHILE {((I: 
BEGIN 



NUMRE P FWLVLSLOC ; % OFFSET BY 1 4 1 FOR PROPER LOOPING 

% INCREMENT BELOW . 
*+l) LEQ NUMRE PFWLVLS ) AND (NOT FWLEVELSMATCH)) DO 



0111605001.005.000 
0111606001.005.000 
0111607001.005.000 
0111608001.005.000 
0111609001.005.000 
0111610001.005.000 
0111611001.005.000 
0111612001.005.000 
0111613001.005.000 
0111614001 .005.000 
0111615001.005.000 
0111616001.005.000 
0111617001.005.000 



0111619001.005.000 
0111619201.005.000 
0111619401.005.000 



FWLEVELSMATCH := TSERVOREVLVL « HDR [( FWFILELOC *+ OLDFWLEVELNG)] 0111618001.005.000 

FOR NEWFWLEVELNG; 

SHOW ("SERVO FIRMWARE =>" C 

TSERVOREVLVL FOR NEWFWLEVELNG, TRUE); 
IF DEBUG THEN % SHOW ENTIRE 7 OR 8 BYTES OF FILE ENTRY0111620001 . 005 . 000 

% IF NULLS ARE PRINTED, OUTPUT IS LOST. 0111621001.005.000 
IF OPTODO « UNASSIGNUNITV THEN 
BEGIN 

IF HDR [(FWFILELOC - 4)] - 48"00" THEN % BYTE [0] « NULL 

SHOW ("FILE FW-LOOP = >" C HDR [(FWFILELOC - 3)] 

FOR (OLDFWLEVELNG - 1) C "<", TRUE) 
ELSE % BYTE [0] NEQ NULL. FORMAT REQUIRED FOR SCSI DRIVES 



SHOW ("FILE FW-LOOP1 



C HDR [(FWFILELOC - 4)] 
FOR OLDFWLEVELNG C "< n 



END 
ELSE 



TRUE ) ; 



% FOR SBC 
SHOW ("FILE FW-LOOP2 
C "<", TRUE) ; 



> n C HDR [FWFILELOC] FOR NEWFWLEVELNG 



END; 



COMPSERVOFWLVLS := TRUE; 

END; % PROCEDURE COMPFWLEVELS 
$$ PAGE 

01118000 

%%%%%%%%%%%%«%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%0111 9000 
% Release the target 01120000 

%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % %%%%oil21000 

01122000 

BOOLEAN PROCEDURE RELEASETARGET (OPTODO); 
VALUE OPTODO; 
INTEGER OPTODO; 
BEGIN 



0111624001.005.000 
0111625001.005.000 
0111626001.005.000 
0111627001.005.000 
0111628001.005.000 
0111629001.005.000 
0111630001.005.000 
0111631001.005.000 
0111632001. 005. 000 
0111633001.005.000 
0111634001.005.000 
0111635001.005.000 
0111636001.005.000 
0111637001.005.000 
0111653001.005.000 
0111655001.005.000 
0111656001.005.000 
01117000 



INTEGER N, RSLT; 

% Release the target 

RSLT := USERMAINTREQUEST [CTLUNIT, OPTODO, 0,0,0, 

SHORTBUF,MRD f HDPRESULT) ; 

IF RSLT > 0 THEN 
BEGIN 

SHOW( "Unable to release TARGET n C 



01123000 
01124000 
01125000 
01126000 
01127000 
01128000 
01129000 
01130000 
01131000 
01132000 
01133000 
01134000 
01135000 
01136000 



CTLUNIT FOR * DIGITS C 
Error " C 
RSLT FOR * DIGITS, TRUE ] ; 
RELEASETARGET :« FALSE; 
END 
ELSE 
BEGIN 

RELEASETARGET := TRUE; 
IF OPTODO = UNASSIGNUNITV THEN 
BEGIN 

SDMASSIGNED := FALSE; 
SHOWRSLT (RSLT, UNASSIGNUNITV); 
END 
ELSE 
BEGIN 

CTLASSIGNED := FALSE; 
"SHOWRSLT (RSLT, UNASSIGNCTLV); 
END; 
END; 

END; % BOOLEAN PROCEDURE RELEASETARGET 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%«%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

% Load SBC Firmware Procedure 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 



PROCEDURE LOADCTLFW; 
BEGIN 

INTEGER N, RSLT, W, OFFSET, I; 
LABEL NEXTCTL; 
ARRAY T[0:2] ; 

% System call to determine machine type 

% If we are not running on an IOM type system, terminate. 

SYSTEMTYPE :« TIME (24); 
REPLACE T BY SYSTEMTYPE FOR 6 ; 
IF T ISNT "All" FOR 3 AND 

T ISNT "A14" FOR 3 AND 

T ISNT "A12" FOR 3 AND 

T ISNT "A16" FOR 3 AND 

T ISNT "A18" FOR 3 AND 

T ISNT "A19" FOR 3 AND 

T ISNT "A28" FOR 3 AND 

T ISNT "NX4 6" FOR 4 AND 

T ISNT "NX4 8" FOR 4 AND 

T ISNT "NX58" FOR 4. THEN 
BEGIN 

SHOW ("SYSTEMTYPE « " C SYSTEMTYPE FOR 6, TRUE); 

SHOW( "Running system is not an IOM system. Program is ENDING", TRUE 
GO GRANDXIT; 
END; 

SHOW ("SYSTEMTYPE = " C SYSTEMTYPE FOR 6, TRUE); 
START 

"Caution: download FW to only one CTL in a string at a time"; 
SHOWIT(TRUE) ; 

START " CTL must be URed to all visible hosts"; 

SHOWIT(TRUE) ; 

START " Other CTL must be online"; 

SHOWIT(TRUE) ; 

MAIN TARGET (CTL) LOOP **++*+% 

OPTODO := UNASSIGNCTLV; % CTL PARAMETER TO UMR 

WHILE TRUE DO 
BEGIN 

%Request CTL number 

CTLUNIT := 0; 
WHILE CTLUNIT ~ 0 DO 
BEGIN 



01137000 
01138000 
01139000 
01140000 
01141000 
01142000 
01143000 
01144000 
01145000 
01146000 
01147000 
01148000 
01149000 
01150000 
01151000 
01152000 
01153000 
01154000 
01155000 
01156000 
01157000 
%%01158000 
01159000 
%%01160000 
01161000 
01162000 
01163000 

01164000010040006 
01165000 

01166000010030005 

01166400010030005 

01167000 

01168000 

01169000 

01170000010030005 
01170500010040007 
01171000010030005 
01171500010030005 
01171600010040006 
01172000010040007 
01172500010030005 
01173000010030005 
01173500010040007 
01173600010040007 
011738001.005.000 
011739001.005.000 
01174000 

01174500010030005 
) ;01175000010010001 
01176000 
01177000 

01178000010030005 

01179000 

01180000 

01181000 

01182000 

01183000 

01184000 

01185000 

01186000 

01187000 

01188000 

01189000 

01190000 

01191000 

01192000 

01193000 

01194000 

01195000 

01196000 

01197000 



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%«%%%%%%%%%%%%%%%%%%%%%%%% 

% IF T PRODI D EQL "DVCl 000-1X1" FOR 11 THEN 
BEGIN 

SHOW( n n ,TRUE); 
SHOW ( n »»»»»»»»»>ATTENTION««««««««««< n , TRUE ) ; 
IF NOT ATODT THEN % AT A TERMINAL 

BEGIN 

SHOW ("Download of SBC requires UR of all CTLs ",TRUEJ; 
END 

ELSE % AT AN ODT 

BEGIN 

SHOW ("Download of SBC requires UR of all CTLs " , TRUE ) ; 
END; 

SHOW { n »»>»»»»»»»AtTENTION««««««««««<" , TRUE ) ; 
SHOW{" " , TRUE ) ; 

END; 

% START "Did you UR all the CTLs & PKs? Enter Yes or No"; 
% PROMPT; 

% IF PL NEQ "Y" THEN 
% BEGIN 

% SHOW ("Download will not take place for target " C 

% CTLUNIT FOR * DIGITS, TRUE); 

% IF NOT RELEASETARGET (OPTODO) THEN 

% GO GRANDXIT 

% ELSE 

% GO NEXTCTL; 

% END; 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

START 

"Enter number of URed CTL or •End 1 to change selection"; 
PROMPT; 

IF PL = "E" THEN 

GO MAINLOOP; 
SCAN PL FOR N:LL WHILE >= "0"; 
IF LL-N > 0 THEN 

CTLUNIT :» INTEGER ( PL, LL-N ) ; 
END; 

% Validate CTL number as belonging to an SBC 
CTLASSIGNED :» FALSE; 

RSLT := USERMAINTREQUEST(CTLUNIT,ASSIGNCTLV,O,0,O, 

SHORTBUF, MRD, HDPRESULT ) ; 
SHOWRSLT (RSLT, ASSIGNCTLV) ; 

IF RSLT > 0 THEN % Error 

BEGIN 

SHOW("Assign of CTL denied. Are you sure you " , TRUE ) ; 

SHOW("entered a URed CTL number and not a PORT or PK?",TRUE); 

GO NEXTCTL; 
END 
ELSE 

CTLASSIGNED :~ TRUE; 



% Get attributes of Target 

RSLT := USERMAINTREQUEST (CTLUNIT, ATTRIBUTESV, 254, 0, 0, 

SHORTBUF,MRD, HDPRESULT ) ; 
IF RSLT > 0 THEN % Problem 

BEGIN 

SHOW("MCP interface error " C 
RSLT FOR * DIGITS C 
" to get target" C 
" attributes for CTL " C 
CTLUNIT FOR * DIGITS, TRUE ) ; 
SHOWRSLT (RSLT, ATTRIBUTESV) ; 
SHOW("Check CTL for problem", TRUE ) ; 
IF NOT RELEASETARGET (OPTODO) THEN 

GO GRANDXIT 
ELSE 

GO NEXTCTL; 

END; 



%01197020010020004 
01197040010020004 
01197060010020004 
01197080010020004 
01197100010020004 
0119712001.005.000 
0119714001.005.000 
0119716001.005.001 
01197200010020004 
01197220010020004 
01197240010020004 
0119728001.005.000 
01197300010020004 
01197320010020004 
01197340010020004 
01197360010020004 
01197380010020004 
01197400010020004 
01197420010020004 
01197440010020004 
01197460010020004 
01197480010020004 
01197500010020004 
01197520010020004 
01197540010020004 
01197560010020004 
01197580010020004 
%01197600010020004 
01198000 
01199000 
01200000 
01201000 
01202000 
01203000 
01204000 
01205000 
01206000 
01207000 
01208000 
01209000 
01210000 
01211000 
01212000 
01213000 
01214000 
01215000 
01216000 
01217000 
01218000 
01219000 
01220000 
01221000 
01222000 
01223000 
01224000 
01225000 
01226000 
01227000 
01228000 
01229000 
01230000 
01231000 
01232000 
01233000 
01234000 
01235000 
01236000 
01237000 
01238000 
01239000 
01240000 



TARGET 



SHOWATTRIBUTES; 

% Get code file & match header rec. info against Target info. 

IF TVENDORID NEQ VENDORI DEXP FOR VENDORI DLNG THEN 
BEGIN 

SHOW ("Vendor ID of target is not UNISYS. TRUE); 
SHOW (»'« Download will NOT take place. »", TRUE); 
IF NOT RELEASETARGET (OPTODO) THEN 

GO GRANDXIT 
ELSE 

GO NEXTCTL; 
END; 

IF NOT COMPPRODIDS THEN % COMPARE PRODUCT IDs OF FILE VS. 
IF NOT RELEASETARGET (OPTODO) THEN 

GO GRANDXIT 
ELSE 

GO NEXTCTL; 

IF NOT COMPFWLEVELS THEN % COMPARE FIRMWARE LEVELS OF FILE VS 
IF NOT RELEASETARGET (OPTODO) THEN 

GO GRANDXIT 
ELSE 

GO NEXTCTL; 

IF TPRODREVLVL « FNEWFWLEVEL FOR NEWFWLEVELNG THEN 
BEGIN 

SHOW {"Firmware levels of Target and File are the same . " , TRUE ) ; 
START "Do you still want to download the firmware? Enter YES or NO" 
PROMPT; 

IF PL NEQ "Y" THEN 
BEGIN 

SHOW ("Download will not take place for target " C 

CTLUNIT FOR * 'DIGITS, TRUE) ; 
IF NOT RELEASETARGET (OPTODO) THEN 

GO GRANDXIT 
ELSE 

GO NEXTCTL; 
END; 
END; 

% Request function 

SHOW ("Starting to download code to CTL " C 

CTLUNIT FOR * DIGITS, TRUE) ; 
IF SYSCAP <= FCODE BYTES THEN 
BEGIN 

NUMBROFIOS := FCODEBYTES DIV EIGHTK; 
SIZEOFLSTIO := FCODEBYTES MOD EIGHTK; 
OFFSET := 0; 
I := 0; 



DO 



BEGIN 

RSLT := USERMAINTREQUEST (CTLUNIT, DOWNLOADMODE6, 8192, OFFSET, 0, 
IMLBUF2[I,*] , MRD, HDPRESULT ) ; 

IF RSLT > 0 THEN 
BEGIN 

SHOWRSLT ( RSLT , LOADSLAVEIMLV ) ; 
SHOWMRDBITS; 
SHOWHDPRESULT; 



SHOW("« Microcode NOT loaded!! »",TRUE); 
IF NOT RELEASETARGET (OPTODO) THEN 
GO GRANDXIT; 

END; 

REPLACE SCR[0] BY "1= I FOR *DIGITS; 
DISPLAY (SCR); 

REPLACE SCR2[0] BY "NUMBROFIOS= ", NUMBROFIOS FOR 
DISPLAY (SCR2); 
NUMBROFIOS :-*-!; 



01241000 
01242000 
01243000 
01244000 
01245000 
01246000 
01247000 
01248000 
01249000 
01250000 
01251000 
01252000 
01253000 
01254000 

01256000010010001 
01257000 
01258000 
01259000 
01260000 
01261000 
TARGET01262000 
01263000 
01264000 
01265000 
01266000 
01267000 
01268000 
01269000 
01270000 
01271000 
01272000 
01273000 
01274000 
01275000 
01276000 
01277000 
01278000 
01279000 
01280000 
01281000 
01282000 
01283000 
01284000 
01285000 
01286000 
01287000 

01287050010040006 
01287100010040006 
01287150010040006 
01287200010040006 
01287250010040006 
01287300010040006 
01287350010040006 
01287400010040006 
01287450010040006 
01287500010040006 
01287550010040006 
01287600010040006 
01287650010040006 
01287700010040006 
01287750010040006 
01287800010040006 
01287850010040006 
01287900010040006 
01287950010040006 
01288000010040006 
^01288010010040006 
"01288020010040006 
DIGITS; 01288030010040006 
01288040010040006 
01288050010040006 



OFFSET :~ * + EIGHTK; 
I :« * + 1; 
END 

UNTIL NUMBROFIOS - 1; 

RSLT := USERMAINTREQUEST (CTLUNIT, DOWNLOADMODE7 , 81 92, OFFSET, 0, 
IMLBU F2 [ I , * ] , MRD, HDPRESULT J ; 

END 
ELSE 

RSLT USERMAINTREQUEST ( CTLUNIT , LOADS LAVE IMLV, FCODEBYTES, 0,0, 

IMLBUF, MRD, HDPRESULT ) ; 

IF RSLT > 0 THEN 
BEGIN 

SHOWRSLT [ RSLT , LOADS LAVE IMLV) ; 
SHOWMRDBITS; ; 
SHOWHDPRESULT; 

SHOW( n « Microcode NOT loaded!! »",TRUE); 
IF NOT RELEASETARGET (OPTODO) THEN 

GO GRANDXIT 
ELSE 

GO NEXTCTL; 

END; 

SHOW ( n Download complete. Waiting to read attributes of CTL " C 

CTLUNIT FOR * DIGITS, TRUE ) ; 
SHOW( n Do not power off or alter CTL " C 

CTLUNIT FOR * DIGITS, TRUE ) ; 

% The SBC has now turned off its SCSI interface. 

% It won't come alive until after it has done the power up 

% confidence tests (approx. 30 seconds) - 

% Initially wait 30 seconds and then cycle ATTRIBUTES calls 
% every 10 seconds until it comes back to life or drops dead. 

WHEN (30) ; 

SHOW( n 00:30 Starting to read attributes of CTL " C 

CTLUNIT FOR * DIGITS, TRUE ) ; 
TIMER := 0; 

REPLACE SHORTBUF [0] BY NUL FOR SIZE (SHORTBUF) ; 

RSLT USERMAINTREQUEST (CTLUNIT, TESTUNITREADY, 0,0,0, 

SHORTBUF, MRD, HDPRESULT ) ; 

IF RSLT > 0 THEN 
BEGIN 

SHOWRSLT ( RSLT, LOADS LAVEIMLV) ; 

SHOWMRDBITS; 

SHOWHDPRESULT; 

SHOW("« Test Unit Ready Failed!! »",TRUE); 
IF NOT RELEASETARGET (OPTODO) THEN 
GO GRANDXIT; 

END; 

DISPLAY (" Test Unit Ready - OK " ) ; 

DO BEGIN 
WHEN (10); 

RSLT :« USERMAINTREQUEST ( CTLUNIT, ATTRIBUTESV, 2 54, 0,0, 

SHORTBUF, MRD, HDPRESULT) ; 



N := (TIMER:=*+1}*10'' + 30; 
SHOWRSLT ( RSLT, -N) ; 

END UNTIL N >- 1*60 
OR RSLT = 0; 

IF RSLT > 0 THEN 
BEGIN 

SHOWfMCP interface error 
RSLT FOR * DIGITS 
n after FW download" 
" timeout on CTL " 



% Seconds 



% Drop dead time 
% Success 

% Timeout 



C 
C 
C 

c 



01288100010040006 

01288150010040006 

01288300010040006 

01288350010040006 

01288400010040006 

01288450010040006 

01288500010040006 

01288550010040006 

01288600010040006 

01288650010040006 

01290000 

01291000 

01292000 

01293000 

01294000 

01295000 

01296000 

01297000 

01298000 

01299000 

01300000 

01301000 

01302000 

01303000 

01304000 

01305000 

01306000 

01307000 

01308000 

01309000 

01310000 

01311000 

01312000 

01313000 

01314000 

01315000 

01316000 

01317000 

01318000 

01318050010040006 

01318100010040006 

01318150010040006 

01318200010040006 

01318250010040006 

01318300010040006 

01318350010040006 

01318400010040006 

01318450010040006 

01318500010040006 

01318550010040006 

01318600010040006 

01318650010040006 

01318700010040006 

01318750010040006 

01319000 

01320000 

01321000 

01322000 

01323000 

01324000 

01325000 

01326000 

01327000 

01328000 

01329000 

01330000 

01331000 

01332000 

01333000 

01334000 

01335000 



CTLUNIT FOR * DIGITS, TRUE ) ; 
SHOWRSLT (RSLT, ATTRIBUTES V) ; 
SHOW("Check CTL for malfunction" , TRUE ) ; 
GO GRANDXIT; 
END; 

SHOW ("CTL " C 
CTLUNIT FOR * DIGITS C 
" completed FW download" , TRUE ) ; 

% Format attributes 

SHOWATTRIBUTES; 

SHOW {" «, TRUE) 

SHOW ("If BOOT code was loaded instead of OPERATIONAL code", TRUE) 

SHOW ("The firmware level of the SBC may not have changed ", TRUE) 

SHOW {" », TRUE) 

% Release the CTL 

IF NOT RELEASETARGET (OPTODO) THEN 
GO GRANDXIT; 

SHOW ("Okay to UR- CTL " C 
CTLUNIT FOR * DIGITS C 
" and load companion CTL", TRUE); 

NEXTCTL : 

END; % WHILE TRUE DO 

END; % Load CTL Firmware 



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
% Load SCSI Drive Firmware Procedure 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

PROCEDURE LOADEVFW; 
BEGIN 

INTEGER N,RSLT,W, OFFSET, I, J; 
LABEL NEXT DRIVE; 
ARRAY T[0:2] ; 
% System call to determine machine type 

% If we are not running on an IOM type system, terminate. 

SYSTEMTYPE :~ TIME(24); 
% REPLACE T BY SYSTEMTYPE FOR 3 ; 



% 


IF T 


ISNT 


"All" 


FOR 


3 


AND 


% 


T 


ISNT 


"A14" 


FOR 


3 


AND 


% 


T 


ISNT 


"A16" 


FOR 


3 


AND 


% 


T 


ISNT 


"A17" 


FOR 


3 


AND 


% 


T 


ISNT 


"A18" 


FOR 


3 


AND 


% 


T 


ISNT 


"A19" 


FOR 


3 


AND 


% 


T 


ISNT 


"A28" 


FOR 


3 


THEN 



% BEGIN 

% SHOW ( "SYSTEMTYPE » " C SYSTEMTYPE FOR 6, TRUE); 

% SHOW ( "Running system does not support this drives." C 

% " Program is ENDING. ", TRUE) ; 

% GO GRANDXIT; 

% END; 

SHOW ("SYSTEMTYPE = " C SYSTEMTYPE FOR 6, TRUE); 
IF NOT EXPRESSMODE THEN 
BEGIN 

''Caution: Load only one drive in a string at a time"; 



START 
SHOWIT(TRUE) 
START " 
SHOWIT(TRUE) 
START " 
SHOWIT(TRUE) 
END; 



drive must be URed to all visible hosts"; 
If using Fibre Channel UR the opposite Port" 



01336000 
01337000 
01338000 
01339000 
01340000 
01341000 
01342000 
01343000 
01344000 
01348000 
01349000 
01350000 
01351000 

01351100010010001 

01351200010010001 

01351300010010001 

01351400010010001 

01351500010010001 

01352000 

01353000 

01354000 

01355000 

01356000 

01357000 

01357200010020002 

01357400010020002 

01357600010020002 

01357800010020002 

01358000 

01359000 

01360000 

01361000 

01362000 

01363000 
%%%01364000 

0136500001.005.001 
%%%01366000 

01367000 

0136800001.005.001 
01369000 

0137000001.005.001 
01371000 

01372000010030005 
01373000 
01374000 
01375000 

01376000010030005 

01376500010030005 

01377000010030005 

01377500010030005 

01378000010030005 

01379000010030005 

01379500010030005 

01380000010030005 

01380500010030005 

01381000010030005 

01381500010030005 

01382000010030005 

01383000.010030005 

01384000010030005 

01385000010030005 

01386000010030005 

01386200010020003 

01386400010020003 

01387000010020003 

01388000010020003 

01389000010020003 

01390000010020003 

0139020001.005.000 

0139040001.005.000 

01390500010020003 



%****** MAIN TARGET (DRIVE) LOOP ******% 



OPTODO 



UNASSIGNUNITV; 



% DRIVE PARAMETER TO OMR 



WHILE TRUE DO 
BEGIN 

%Request drive number 



CTLUNIT := 0; 
WHILE CTLUNIT 
BEGIN 



0 DO 



01391000 
01392000 
01393000 
01394000 
01395000 
01396000 
01397000 
01398000 
01399000 
01400000 
01401000 
01402000 
01403000 



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% «%%%«%%%%%%%%%%%%%%%%%%%%%%%%%%* %%%%%014 03020010020004 



* , TRUE ) ; 
f ,TRUE); 



\TRUE) ; 
1 , TRUE } ; 



% BEGIN 

% SHOW(" " , TRUE ) ; 

% SHOW ( "»»»»»»»»»>ATTENTION««««««««««<" , TRUE ) ; 

% IF NOT ATODT THEN % AT A TERMINAL 

% BEGIN 

% SHOW [ "All PKs associated with a DRC physical 

% SHOW( n disk must be CLOSED and UR'ed. 

% END 

% ELSE % AT AN ODT 

% BEGIN 

% SHOW("disk must be CLOSED and UR'ed. 

% SHOW ("All PKs associated with a DRC physical 

% END; 

% SHOW ( M »»»»»>»»»»ATTENTION«««<«««««««", TRUE) ; 

% SHOW(" " r TRUE ) ; 

% END; 

% START "Did you UR all the Packs associated? Enter Yes or No"; 

% PROMPT; 

% IF PL NEQ "Y" THEN 

% BEGIN 

% SHOW ("Download will not take place for target " C 

% CTLUNIT FOR * DIGITS, TRUE); 

% IF NOT RE LEAS E TARGE T (OPTODO) THEN 

% GO GRANDXIT; 

% ELSE 

% GO NEXT DRIVE; 

% END; 



0140304001.005.000 

0140306001.005.000 

0140308001.005.000 

0140310001.005.000 

0140312001.005.000 

0140314001.005.000 

0140316001.005.000 

0140318001.005.000 

0140320001.005.000 

0140322001.005.000 

0140324001.005.000 

0140326001.005.000 

0140328001.005.000 

0140330001.005.000 

0140332001.005.000 

0140334001.005.000 

01403360010020004 

01403380010020004 

01403400010020004 

01403420010020004 

01403440010020004 

01403460010020004 

01403480010020004 

01403500010020004 

01403520010020004 

01403540010020004 

01403560010020004 



%%t%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%« %%%%%%%%01 4 03580010020004 



'End' to change selection."; 



START 

"Enter number of URed drive or 
PROMPT; 
IF PL « "E" THEN 

GO MAINLOOP; 
SCAN PL FOR N:LL WHILE >« "0"; 
IF LL-N > 0 THEN 

CTLUNIT := INTEGER ( PL, LL-N) ; 
END; 

% Validate SCSI disk drive number 
SDMASSIGNED : = FALSE; 

RSLT := USERMAINTREQUEST (CTLUNIT, AS SIGNUNITV, 0, 0, 0, 

SHORTBUF, MRD, HDPRESULT ) ; 
SHOWRSLT(RSLT,ASSIGNUNITV) ; 

IF RSLT > 0 THEN % Error 

BEGIN 

SHOW("Assign of the drive denied. Are you sure you " , TRUE ) ; 

SHOW("entered a URed drive number and not a PORT or CTL?",TRUE); 

GO NEXT DRIVE; 
END 
ELSE 

SDMASSIGNED := TRUE; 

% Get attributes of Target 

RSLT := USERMAINTREQUEST (CTLUNIT, ATTRIBUTESV, 254 , 0,0, 

SHORTBUF, MRD, HDPRESULT ) ; 



01404000 
01405000 
01406000 
01407000 
01408000 
01409000 
01410000 
01411000 
01412000 
01413000 
01414000 
01415000 
01416000 
01417000 
01418000 
01419000 
01420000 
01421000' 
01422000 
01423000 
01424000 
01425000 
01426000 
01427000 
01428000 
01429000 
01430000 
01431000 
01432000 



IF RSLT > 0 THEN % Problem 

BEGIN 

SHOW("MCP interface error " C 
RSLT FOR + DIGITS C 
" to get target" C 
" attributes for SCSI drive " C 
CTLUNIT FOR * DIGITS, TRUE ) ; 

SHOWRSLT ( RSLT, ATTRIBUTE SV) ; 

SHOWrChecJc TARGET for probl em" , TRUE ) ; 

IF NOT RELEASETARGET (OPTODO) THEN 
GO GRANDXIT 

ELSE 

GO NEXTDRIVE; 

END; 



SHOWATTRIBUTES; 

IF EXPRESSMODE THEN 
REPLACE OLDFWLEVEL 



[0] 



% Save for display at end of download 
BY TPRODREVLVL FOR NEWFWLEVELNG ; 



TARGET 



Get code file & match header rec. info against Target info. 

IF TVENDORID NEQ VENDORIDEXP FOR VENDORIDLNG THEN 
BEGIN 

SHOW ("Vendor ID of target is not UNISYS. ", TRUE); 
SHOW ("« Download will NOT take place. »", TRUE); 
IF NOT RELEASETARGET [OPTODO) THEN 

GO GRANDXIT 
ELSE 

GO NEXTDRIVE; 
END; 

IF NOT COMPPRODIDS THEN % COMPARE PRODUCT IDs OF FILE vs. 
IF NOT RELEASETARGET (OPTODO) THEN 

GO GRANDXIT 
ELSE 

GO NEXTDRIVE; 

IF TPRODREVLVL » FNEWFWLEVEL FOR NEWFWLEVELNG THEN 
BEGIN 

SHOW ("Firmware levels of Target and File are the same TRUE ) ; 
START "Do you still want to download the firmware? Enter YES or NO" 
PROMPT; 

IF PL NEQ "Y" THEN 
BEGIN 

SHOW ("Download will not take place for target " C 

CTLUNIT FOR * DIGITS, TRUE); 
IF NOT RELEASETARGET (OPTODO) THEN 

GO GRANDXIT 
ELSE 

GO NEXTDRIVE; 
END 

ELSE REPLACE SAVEFWLVL [0] BY 48"00" FOR OLDFWLEVELNG; 
END 
ELSE 

IF NOT COMPFWLEVELS THEN % COMPARE FW LEVELS OF FILE VS. TARGET 
IF NOT RELEASETARGET (OPTODO) THEN 

GO GRANDXIT 
ELSE 

GO NEXTDRIVE; 



If drive needs to be formatted after firmware download, get 
permission before downloading the code. 

Each FW level area in file = 8 bytes. If byte 0 neq 48"00", drive 
must be formatted after code is loaded. 

% Drive needs formatting 



% 
% 
% 
% 

IF SAVEFWLVL [0] NEQ 48"00" THEN 
IF NOT OKTO FORMAT THEN 

IF NOT RELEASETARGET (OPTODO) THEN 
GO GRANDXIT 
ELSE 

GO NEXTDRIVE; 



01433000 
01434000 
01435000 
01436000 
01437000 
01438000 
01439000 
01440000 
01441000 
01442000 
01443000 
01444000 
01445000 
01446000 
01447000 
01448000 
01449000 

01449200010020003 
01449400010020003 
01449600010020003 
01450000 
01451000 
01452000 
01453000 
01454000 
01455000 
01456000 
01457000 
01458000 
01459000 
01460000 

01462000010010001 
01463000 
01464000 
01465000 
01466000 
01467000 

0147400001.005.000 
01475000 
01476000 
01477000 
01478000 
01479000 
01480000 
01481000 
01482000 
01483000 
01484000 
01485000 
01486000 
01487000 
NO FORMAT01487500010010001 
01488000 
01489000 

0148920001.005.000 
01489400010010001 
01489600010010001 
01489800010010001 
01490000010010001 
01490200010010001 
01491000010010001 
01492000010010001 
01493000010010001 
01494000010010001 
01495000010010001 
01496000010010001 
01497000010010001 
01498000 
01499000 
01500000 
01502000 



% Get attributes of Target 

RSLT :« USERMAINTREQUEST (CTLUNIT, INQUIRY, 23, 192, 0 f 

SHORTBUF, MRD, HDPRESULT ) ; 



% Problem 



IF RSLT > 0 THEN 
BEGIN 

SHOW("MCP interface error " C 

RSLT FOR * DIGITS C 

" to get target" C 

" attributes for SCSI drive " C 

CTLUNIT FOR * DIGITS , TRUE ) ; 
SHOWRSLT (RSLT, ATTRI BUT ESV) ; 
SHOW("Check TARGET for problem" , TRUE ) ; 
IF NOT RELEAS ET ARGE T (OPTODO) THEN 

GO GRANDXIT 
ELSE 

GO NEXTDRIVE; 

END; 

SHOWINQUIRYDATA; 

IF EXPRESSMODE THEN % Save for display at end of download 

REPLACE OLDFWLEVEL [0] BY TSERVOREVLVL FOR NEWFWLEVELNG; 

% Get code file & match header rec. info against Target info. 



IF TSERVOREVLVL = FNEWFWLEVEL FOR NEWFWLEVELNG THEN 
BEGIN 

SHOW ("Servo FW levels of Target and File are the same . n , TRUE J ; 



0150201001.005.001 
0150202001.005.001 
0150203001.005.000 
0150204001.005.001 
0150205001.005.001 
0150206001.005.001 
0150207001.005.001 
0150208001.005.001 
0150209001.005.001 
0150210001.005.001 
0150211001.005.001 
0150212001.005.001 
0150213001.005.001 
0150214001.005.001 
0150215001.005.001 
0150216001.005.001 
0150217001.005.001 
0150218001.005.001 
0150219001.005.001 
0150220001.005.000 
0150221001.005.001 
0150222001.005.001 
0150223001.005.000 
0150224001.005.001 
0150225001.005.001 
0150226001.005.001 
0150241001.005.001 
0150242001.005.000 
0150243001.005.001 
0150244001.005.000 



START "Do you still want to download the firmware? Enter YES or NO" ; 0150245001 . 005. 001 



PROMPT; 

IF PL NEQ "Y" THEN 
BEGIN 

SHOW ("Download will not take place for target " C 

CTLUNIT FOR * DIGITS, TRUE); 
IF NOT RELEASETARGET (OPTODO) THEN 

GO GRANDXIT 
ELSE 

GO NEXTDRIVE; 
END 

ELSE REPLACE SAVEFWLVL [0] BY 4 8" 00" FOR OLDFWLEVELNG; 
END 
ELSE 

IF NOT COMPSERVOFWLVLS THEN % COMPARE FW LEVELS OF FILE VS. TARGET 
IF NOT RELEASETARGET (OPTODO) THEN 

GO GRANDXIT 
ELSE 

GO NEXTDRIVE; 

% If drive needs to be formatted after firmware download, get 
% permission before downloading the code. 

% Each FW level area in file « 8 bytes. If byte 0 neq 48"00", drive 
% must be formatted after code is loaded. 

IF SAVEFWLVL [0] NEQ 48"00" THEN % Drive needs formatting 
IF NOT OKTO FORMAT THEN 

IF NOT RELEASETARGET (OPTODO) THEN 
GO GRANDXIT 
ELSE 

GO NEXTDRIVE; 



% Request function 

IF NOT EXPRESSMODE THEN 

SHOW ("Starting to download code to drive 
CTLUNIT. FOR + DIGITS, TRUE ) ; 
IF FCODEBYTES > SYSCAP THEN 

BEGIN 

NUMBROFIOS :« FCODEBYTES DIV EIGHTK; 
% NUMBROFIOS := * + 1; 

% SHOW(" NUMBROFIOS = " C NUMBROFIOS FOR 



DIGITS, TRUE) ; 



0150246001.005.001 
0150247001.005.001 
0150248001.005.001 
0150249001.005.001 
0150250001.005.001 
0150251001.005.001 
0150252001.005.001 
0150253001.005.001 
0150254001.005.001 
0150255001,005.001 
% NO FORMAT0150256001.005.001 
0150257001.005.001 
0150258001.005.001 
0150259001.005.000 
0150260001.005.001 
0150261001.005.001 
0150262001.005.001 
0150263001.005.001 
0150264001.005.001 
0150265001.005.001 
0150266001.005.001 
0150267001.005.001 
0150268001.005.001 
0150269001.005.001 
0150270001.005.001 
0150271001.005.001 
0150272001.005.001 
0150273001.005.001 
0150274001.005.001 
0150275001.005.001 
01503000 
01504000 

01504500010020003 
01505000010020003 
01506000010020003 
0150610001.005.000 
01506200010040006 
01506300010040006 
0150632001.005.000 
0150635001.005.000 



3> 



SIZEOFLSTIO FCODEBYTES MOD EIGHTK; 

SHOW(" SIZEOFLSTIO » " C SIZEOFLSTIO FOR * DIGITS, TRUE) ; 

FIRSTTIME := TRUE; 

OFFSET := 0; 

I := 0; 

J :« 0; 

DO 

BEGIN 
IF J <« 47 THEN 
BEGIN 

RSLT := USERMAINTREQUEST ( CTLUNIT, DOWNLOADMODE7 , 8192, OFFSET, 0, 

IMLBUF2 [I, * ] , MRD, HDPRESULT ) ; 
SH0W("1I = " C I FOR * DIGITS, TRUE ) ; 
SHOW ("1 OFFSET « " C OFFSET FOR * DIGITS, TRUE) ; 
IF RSLT > 0 THEN 
BEGIN 

SHOWRSLT ( RSLT, LOADSLAVEIMLV) ; 

SHOWMRDBITS; 

SHOWHDPRESULT; 

SHOW{"« Microcode(l) NOT loaded!! »",TRUE); 
IF NOT RELEASETARGET (OPTODO) THEN 
GO GRANDXIT; 

END; 
END 
ELSE 
BEGIN 

IF FIRSTTIME THEN 
I := 0; 
. FIRSTTIME :« FALSE; 
RSLT := USERMAINTREQUEST ( CTLUNIT, DOWNLOADMODE7 , 8192, OFFSET, 0, 

IMLBUF3 [ I , * ] , MRD, HDPRESULT ) ; 
SHOW("2I = " C I FOR * DIGITS, TRUE) ; 
SHOW("20FFSET « " C OFFSET FOR * DIGITS, TRUE ) ; 
SHOW["2J = n C J FOR * DIGITS, TRUE) ; 
IF RSLT > 0 THEN 
BEGIN 

SHOWRSLT { RSLT , LOADSLAVEIMLV ) ; 

SHOWMRDBITS; 

SHOWHDPRESULT; 

SHOW( n « Microcode^) NOT loaded!! » n , TRUE ) ; 
IF NOT RELEASETARGET (OPTODO) THEN 
GO GRANDXIT; 

END; 
END; 

NUMBROFIOS :« * - 1; 
OFFSET :« * + EIGHTK; 
I * + 1; 
J := * + 1; 
END 

UNTIL NUMBROFIOS = 0; 

SHOW(" NUMBROFIOS » " C NUMBROFIOS FOR * DIGITS , TRUE ) ; 
SHOW(" I = " C I FOR * DIGITS, TRUE) ; 
SHOW(" J = " C J FOR + DIGITS, TRUE) ; 
SHOW[ n OFFSET = " C OFFSET FOR * DIGITS, TRUE ) ; 
IF J < 47 THEN 
BEGIN 

RSLT := USERMAINTREQUEST {CTLUNIT, DOWNLOADMODE7 , 8192, OFFSET, 0, 
IMLBUF2 [I, *] , MRD, HDPRESULT ) ; 
SHOW{"3I - " C I FOR * DIGITS, TRUE ) ; 
SHOW{ "30FFSET « " C OFFSET FOR * DIGITS, TRUE ) ; 
IF RSLT > 0 THEN 
BEGIN 

SHOWRSLT (RSLT, LOADSLAVEIMLV) ; 

SHOWMRDBITS; 

SHOWHDPRESULT; 



SHOW("« Microcode(3) NOT loaded!! »",TRUE); 
IF NOT RELEASETARGET (OPTODO) THEN 
GO GRANDXIT; 



01506400010040006 
0150640201.005.000 
0150640401.005.000 
01506410010040006 
01506415010040006 
0150641601.005.000 
01506420010040006 
01506430010040006 
0150643501.005.000 
0150643601.005.000 
01506440010040006 
0150645001.005.000 
0150645201.005.000 
0150645401.005.000 
0150645601.005.000 
0150645801.005.000 
0150646001.005.000 
0150646201.005. 000 
0150646401.005.000 
0150646601.005.000 
0150646801.005.000 
0150647001.-005. 000 
0150647201.005.000 
0150647401.005.000 
0150647601.005.000 
0150647801.005.000 
0150648001.005.000 
0150648201.005.000 
0150648401.005.000 
0150648601.005.000 
0150648801.005.000 /K 
0150649001.005.000 
0150649201.005.000 
0150649401.005.000 
0150649601.005.000 
0150649801.002.006 
0150650001.002.006 
0150650201.002.006 
0150650401.002.006 
0150650601.002.006 
0150650801.002.006 
0150651001.005.000 
0150651201.002.006 
0150651401.002.006 
0150651601.002.006 
0150651801.005.000 
0150652001.002.006 
0150652201.002.006 
0150652401.002.006 
0150652601.005.000 
0150652801. 002. 0Q6 
0150653001.005.000 
0150653201.005.000 
0150653401.005.000 
0150653601.005.000 
0150653801.005.000 
0150654001.005.000 
0150654201.005.000 
0150654401.005.000 
0150655001.005.000 
0150655201.005.000 
0150655401.005.000 
0150655601.005.000 
0150655801.005.000 
0150656001.005.000 
0150656201.005.000 
0150656401.005.000 
0150656601.005.000 
0150656801.005.000 
0150657001.005.000 
0150657201.005.000 



END; 

END 
ELSE 
BEGIN 
RSLT := 



USERMAINT REQUEST (CTLUNIT, DOWNLOADMODE 7 , 4224 , OFFSET, 0, 
IMLBUF3[I,+] , MRD, HDPRESULT ) ; 
SHOW("4I = " C I FOR * DIGITS, TRUE) ; 
SHOW("40FFSET « " C OFFSET FOR * DIGITS, TRUE ) ; 
SHOW("4J » " C J FOR * DIGITS, TRUE) ; 
IF RSLT > 0 THEN 
BEGIN 

SHOWRSLT ( RSLT , LOADS LAVE IMLV ) ; 

SHOWMRDBITS; 

SHOWHDPRESULT; 

SHOW["« Microcode^) NOT loaded!! >>" , TRUE ) ; 
IF NOT RELEASETARGET (OPTODO) THEN 
GO GRANDXIT; 

END; 



END; 



END 
ELSE 

RSLT := USERMAINTREQUEST (CTLUNIT, LOADS LAVE IMLV, FCODEBYTES , 0, 0, 

IMLBUF, MRD, HDPRESULT) ; 
% SH0W("5I - " C I FOR * DIGITS, TRUE) ; 

% SHOW("50FFSET = " C OFFSET FOR * DIGITS, TRUE ) ; 

IF RSLT > 0 THEN 

BEGIN 

SHOWRSLT { RSLT, LOADSLAVEIMLV) ; 
SHOWMRDBITS; ; 
SHOWHDPRESULT; 

SHOW("« Microcode(S) NOT loaded! 1 »",TRUE); 
IF NOT RELEASETARGET (OPTODO) THEN 

GO GRANDXIT 
ELSE 

GO NEXT DRIVE; 

END; 

IF EXPRESSMODE THEN 

SHOW{ "Download complete. Waiting 20 seconds for prom burn to " C 
CTLUNIT FOR * DIGITS, TRUE) 

ELSE 

SHOW ( "Download complete. Waiting 60 seconds for prom burn to " C 
CTLUNIT FOR * DIGITS, TRUE ) ; 
SHOW ("Do not power off or alter drive " C 
CTLUNIT FOR * DIGITS, TRUE ) ; 

% The SCSI disk drive has now turned off its SCSI interface. 
% It won f t come alive until after it has done the power up 

confidence tests (approx. 60 seconds). The second. ATTRIBUTES command 
can then be issued to display the new firmware level. NOTE: If the 
second ATTRIBUTES command is issued before the target sequences 



0150657401.005.000 
0150657601.005.000 
0150657801.005.000 
0150658001.005.000 
0150658201.005.000 
0150658401.005.000 
0150658601.005.000 
0150658801.005.000 
0150659001.005.000 
0150660001.005.000 
0150662001.005.000 
0150664001.005.000 
0150666001.005.000 
0150668001.005.000 
0150670001.005.000 
0150672001.005.000 
0150674001.005.000 
0150676001.005.000 
0150678001.005.000 
0150680001.005.000 
0150682001.002.006 
0150684001.002.006 
01507000 

01508000010040006 

0150820001.005.000 

0150840001.005.000 

01509000 

01510000 

01511000 

01512000 

01513000 

01514000 

0151500001.005.000 

01516000 

01517000 

01518000 

01519000 

01520000 

01521000 

01521200010020003 

01521400010020003 

01521600010020003 

01521800010020003 

01522000010020003 

01523000010020003 

01524000 

01525000 

01526000 

01527000 

01528000 

01529000 

01530000 

01531000 



(powers itself back up) the target will hang and the program will show01532000 



an error. 



IF NOT EXPRESSMODE THEN 

SHOW("00:10 - Waiting for prom burn to target 
CTLUNIT FOR * DIGITS, TRUE ) ; 
TIMER := 0; 



IF NOT EXPRESSMODE THEN 
DO BEGIN 
WHEN (10) ; 

N := (TIMER:»*+1)+10 + 10; 
IF NOT EXPRESSMODE THEN 
SHOWRSLT (RSLT, -N) ; 
END UNTIL N >= 1*60; 



% Seconds 



IF EXPRESSMODE THEN 
WHEN (20); 



% Drop dead time 

% WAIT 20 SECONDS ONLY 



01533000 
01534000 

01534500010020003 

01535000010020003 

01536000010020003 

01537000 

01538000 

01538500010020003 
01539000 
01540000 
01541000 

01541500010020003 
01542000010020003 
01543000 

01543200010020003 
01543400010020003 
01543600010020003 



REPLACE SHORTBUF [0] BY NUL FOR SIZE (SHORTBUF); 

RSLT USERMAINTREQUEST { CTLUNIT, TESTUNITREADY, 0,0,0, ' 

SHORTBUF, MRD, HDPRESULT ) ; 

IF RSLT > 0 THEN 
BEGIN 

SHOWRSLT (RSLT, LOADSLAVEIMLV) ; 

SHOWMRDBITS; 

SHOWHDPRESULT; 

SHOW("« Test Unit Ready Failed!! »",TRUE) ; 
IF NOT RELEASETARGET (OPTODO) THEN 
GO GRANDXIT; 

END; 

DISPLAY (" Test Unit Ready - OK "); 

REPLACE SHORTBUF [0] BY NUL FOR SIZE (SHORTBUF); 

RSLT :« USERMAINTREQUEST (CTLUNIT, ATTRIBUTESV, 254,0,0, 

SHORTBUF, MRD, HDPRESULT) ; 



% Timeout 



IF RSLT > 0 THEN 
BEGIN 

SHOW("MCP interface error " C 

RSLT FOR * DIGITS C 

" after FW download" C 

" timeout on drive " C 

CTLUNIT FOR + DIGITS, TRUE ) ; 
SHOWRSLT (RSLT, ATTRIBUTESV) ; 

SHOW("Check the drive for ma 1 function " , TRUE ) ; 
IF EXPRESSMODE THEN 

SHOW("» Run DFAST again NOT using Express Mode «",TRUE); 
GO GRANDXIT; 
END; 

SHOW("Target " C CTLUNIT FOR * DIGITS C " completed download" , TRUE ) ; 

SHOWATTRIBUTES; 

% Get attributes of Target 

RSLT := USERMAINTREQUEST (CTLUNIT, INQUIRY, 23, 192,0, 

SHORTBUF, MRD, HDPRESULT) ; 
IF RSLT > 0 THEN % Problem 

BEGIN ' 

SHOWfMCP interface error " C 

RSLT FOR * DIGITS C 

" to get target" C 

" attributes for SCSI drive " C 

CTLUNIT FOR * DIGITS, TRUE ) ; 
SHOWRSLT (RSLT, ATTRIBUTESV) ; 
SHOW( M Check TARGET for problem" , TRUE ) ; 
IF NOT RELEASETARGET (OPTODO) THEN 

GO GRANDXIT 
ELSE 

GO NEXT DRIVE; 

END; 

S HOWI N QU I RY DATA ; 

IF EXPRESSMODE THEN 

SHOW("ProdID- w C T PRODI D FOR DRIVEIDLNG C "OldFWlvl-" C 

OLDFWLEVEL [0] FOR NEW FWLE VE LN G C " .NewFWlvl-" C 
TPRODREVLVL FOR NEWFWLEVELNG, TRUE ) ; 

% Release the target drive 

IF NOT RELEASETARGET (OPTODO) THEN 
GO GRANDXIT; 



01543620010040006 
01543640010040006 
01543660010040006 
01543680010040006 
01543700010040006 
01543720010040006 
01543740010040006 
01543760010040006 
01543780010040006 
01543800010040006 
01543820010040006 
01543840010040006 
01543860010040006 
01543880010040006 
01543900010040006 
01544000010040006 
01544500010040006 
.01545000 
01546000 
01547000 
01548000 
01549000 
01550000 

01551000010020003 

01552000 

01553000 

01554000 

01555000 

01556000 

01557000 

01558000 

01558200010020003 
01558400010020003 
01559000 

01560000010020003 
01561000 

01563000010020003 
01565000 
01566000 
01571000 

0157100201.005.000 

0157100401.005.000 

0157100601.005.000 

0157100801.005.000 

0157101001.005.000 

0157101201.005.000 

0157101401.005.000 

0157101601.005.000 

0157101801.005.000 

0157102001.005.000 

0157102201.005.000 

0157102401.005.000 

0157102601.005.000 

0157102801.005.000 

0157103001.005.000 

0157103201.005.000 

0157103401.005.000 

0157103601.005.000 

0157103801.005.000 

0157104001.005.000 

0157104201.005.000 

01571100010020003 

01571200010020003 

01571300010020003 

01571400010020003 

01571500010020003 

01572000 

01573000 

01574000 

01575000 

01575200010020002 



SHOW [ "Okay to UR- target " C 
CTLUNIT FOR * DIGITS C 
" and select another drive. n , TRUE) ; 

NEXTDRIVE: 

END; % WHILE TRUE DO 

END; ft Load SCSI drive Firmware 
$$ PAGE 

%%%%%*%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
% Initialization Block 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

PROCEDURE INITIALIZE; 
BEGIN 

INTEGER N; 



ODTMODE 
ATODT 

SDMASSIGNED 
CTLASSIGNED 



:= MYSELF. INITIATOR >= 0; 
:=> MYSELF. INITIATOR - 0; 



FALSE; 



TSTMP[0] 
TSTMP[1] 
TSTMPE2] 
TSTMP[3] 



- COMPILETIME 1 15 ) ; 

- COMPILETIME (09 ) ; 
= TIME (15); 

* TIME (09) ; 



ft mmddyy 

ft hhmmss 

% mmddyy 

ft hhmmss 



Program is ENDING. ", TRUE) ; 



ft See if we are privileged and can make use of the MCP interface. 

N := LINKLIBRARY (MCP) ; 

IF DEBUG THEN 

BEGIN 

START "MCP linkage result - " f 

N FOR * NUMERIC; 
IF N - 1 THEN 

ADD " (normal)"; 
SHOWIT(TRUE) ; 
END; 

IF N < 0 THEN 
BEGIN 

SHOW("FW download not possible. 
GO GRANDXIT; 
END; 



BLANK; 
START 

MYSELF. NAME, 

" (Version ", 

COMPILETIME (20) FOR 2 DIGITS, 

n n 

COMPILETIME (21) FOR 3 DIGITS, 
") compiled 

ETSTMP[00] WITH DATENTIME, 
run on ", 

ETSTMP[12] WITH DATENTIME; 
SHOWIT(TRUE) ; 
SHOWIT ( FALSE ) ; 



% Blank line 



START 

"DO YOU WANT TO VIEW THE USER DOCUMENTATION FOR DFAST? ' Y 1 OR f N ,n ; 
PROMPT; 

IF PL = "Y" THEN 

USERPROCESS 
ELSE 

READFCN; 



START 



» Class C Material. Proprietary to Unisys Corporation «"; 



01575400010020002 

01575600010020002 

01575800010020002 

01576000 

01577000 

01578000 

01579000 

01580000 

01581000 

01582000 
%01583000 

01584000 
%01585000 

01586000 

01587000 

01588000 

01589000 

01590000 

01591000 

01592000 

01593000 

01594000 

01595000 

01596000 

01597000 

01598000 

01599000 

01600000 

01601000 

01602000 

01603000 

01604000 

01605000 

01606000 

01607000 

01608000 

01609000 

01610000 

01611000 

01612000 

01613000 

01614000 

01615000 

01616000010010001 

01617000 

01618000 

01619000 

01620000 

01621000 

01622000 

01623000 

01624000 

01625000 

01626000 

01627000 

01628000 

01629000 

01630000 

01631000 

01632000 

01633000 

01634000' 

01635000 

01636000 

01637000 

01638000010020002 

01638200010020002 

01638400010020002 

01639000 

01640000 

01641000 



Ir **************** « 



SHOWIT ( TRUE ) ; 
SHOWIT { FALSE ) ; 

$$ SET OMIT 

START 

« *************** ATTENTION 
SHOWIT ( TRUE ) ; SHOWIT ( FALSE ) ; 
%*IF NOT ATODT THEN % AT A TERMINAL 

%* BEGIN 

START 

" » This is an UNOFFICIAL version of the FW « w ; 
SHOWIT { TRUE ) ; SHOWIT ( FALSE ) ; 
START 

" » download program to be used for project development << 
SHOWIT (TRUE) ; SHOWIT ( FALSE ) ; 
START 

" » ONLY. Do not pass this file to other organizations. «"; 
SHOWIT ( TRUE ) ; SHOWIT { FALSE ) ; 
%* END 
% $$ SET OMIT 
ELSE 
BEGIN 
START 

" » ONLY. 
SHOWIT (TRUE J ; 
START 

" » download program to be used for project development « n ; 
SHOWIT ( TRUE ) ; SHOWIT ( FALSE ) ; 
START 

n » This is an UNOFFICIAL version of the FW « "; 
SHOWIT ( TRUE ) ; SHOWIT ( FALSE ) ; 
END; 
% $$ FOP OMIT 

START 

" *************** ATTENTION ****** + *+********« «■ 
SHOWIT ( TRUE J ; SHOWIT [ FALSE ) ; 

$$ POP OMIT 

END; % PROCEDURE INITIALIZE 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%«%%%%%%%%%%%% 

% Select the Option Desired 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%«%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

PROCEDURE SELECTOPTION; 
BEGIN 

% Determine our operating mode 



% AT AN A-SERIES CONSOLE 



Do not pass this file to other organizations. «"; 
SHOWIT ( FALSE ) ; 



FUNCTION 

EXPRESSMODE 

DEBUG 

S DMAS SIGNED 
CTLASSIGNED 



= 0; 

- FALSE 

- FALSE 
= FALSE 
= FALSE 



WHILE FUNCTION = 0 DO 
BEGIN 
START 

"Enter function [Ctlload, Devload, Verif yf ile, Quit] " ; 
PROMPT; 

IF LL > 0 THEN 
BEGIN 

IF PL » "Q" THEN GO GRANDXIT; 

IF PL = "DB" THEN % Debug Mode - extended displays 

BEGIN 

DEBUG := TRUE; 

PL := * + 2; 

LL := * - 2; 



01642000 
01643000 
01644000 
01645000 
01646000 
01647000 
01648000 
01649000 
01650000 
01651000 
01652000 
01653000 
01654000 
01655000 
01656000 
01657000 
01658000 
01659000 
01660000 
01661000 
01662000 
01663000 
01664000 
01665000 
01666000 
01667000 
01668000 
01669000 
01670000 
01671000 
01672000 
01673000 
01674000 
01675000 
01676000 
01677000 
01678000 
01679000 
01680000 
01681000 
01682000 
01683000 
01684000 
%01685000 
%01686000 
101687000 
01688000 
01689000 
01690000 
01691000 
01692000 
01693000 
0169400001 
0169420001 
0169440001 
0169460001 
0169480001 
01695000 
01696000 
01697000 
01698000 
0169900001 
01700000 
01701000 
01702000 
01703000 
0170400001 
01705000 
01706000 
01707000 
01708000 



0020003 
0020003 
0020003 
0020004 
0020004 



,005.000 



0020003 



END 


01709000010020003 


ijjjocj j. c rjj = An i riCiN « express Mode — Limit displays 


01710000010020003 


BEGIN 


01710100010020003 


FXPRF^^MfinF •= TBI IF • 


0171 020001 0020003 


PL •= * 4- 9- 


01710300010020003 


LL := * - 2; 


Ul /l U4 UG01 0020003 


END; 


Ul /lUOUOUlQUZOOU J 


TF PT. b TUFM n IMPI'TftM • a T nnnr"PT w rr en 


01711000 


TF PT. b 11 Pi" TUPM FT IMPTTnM . _ t c~\n ryemr r»T nf 


0171200001. 005. 000 


IF PL » "V THEN FUNCTION : = VERIFYV ELSE 


Ul / 1 jUUU 


SHOW t "Unrpmnni t&H "Fi mrt H nn col o ■*-/-•.»- " tdticm- 


01714000 


END; % LL > 0 


01715000 


END; % WHILE 


01716000 




01717000 




01718000 


END; % SELECTOPTION 


01719000 


$$ PAGE 


01721000 




01722000 


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%01723000 


J Epilog Procedure 


01724000 


%%%%%%«%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%« %%%%%%%%%%%%%%%%%%%%%%%%%%%%01725000 


EPILOG PROCEDURE CLEANUP; 


01726000 






% Purpose z 


01728000 


% Clean up any hanging threads. 


01729000 


% 


01730000 


% Parameters: 


01731000 


% Epilog procedures cannot have parameters. 


01732000 




01733000 




01734000 


% CTLATTACHED True: We have to un— attach it. 


01735000 








01737000 


RFAT, R 9T.T • 


01738000 




01739000 


TF PTT.A^^Tf^MFn THFM 


f> ^ ~t A A. A A A 

01740000 


BEGIN 


Ul / q 1 UUU 


SHOW ( "Eoiloa Drocedure invoiced to de»taeh fmm r*TT. 11 r 


Ul / H Z UUU 


CTLUNIT FOR * DIGITS TRUE \ • 


Ul / 4 JUUU 


RSLT :« USERMAINTREQUEST ( CTLUNIT, UN AS SIGN CTLV, 0,0,0, 


01744000 


SHORTBUF,MRD, HDPRESULT) ; 


01745000 


IF RSLT > 0 THEN 


017 4 6000 


BEGIN 


01747000 


SHOW ( "Unable to detach from CTL " C 


01748000 


CTLUNIT FOR * DIGITS C 


01749000 


" . Error " C 


01750000 


RSLT FOR * DIGITS, TRUE) ; 


01751000 


END; 


01752000 


END; % Control attached 


01753000 




01754000 


IF S DMAS SIGNED THEN 


01755000 


BEGIN 


01756000 


SHOW ("Epilog procedure invoked to detach from drive " C 


01757000 


CTLUNIT FOR * DIGITS , TRUE ) ; 


01758000 


RSLT USERMAINTREQUEST (CTLUNIT, UNASSIGNUNITV, 0,0,0, 


01759000 


SHORTBUF,MRD, HDPRESULT) ; 


01760000 


IF RSLT > 0 THEN 


01761000 


BEGIN 


01762000 


SHOW [ "Unable to detach from drive " C 


01763000 


CTLUNIT FOR * DIGITS C 


01764000 


" . Error n C 


01765000 


RSLT FOR * DIGITS, TRUE) ; 


01766000 


END; 


01767000 


END; % Disk attached 


01768000 


END; % Epilog procedure 


01769000 


$$ PAGE 


01770000 




01771000 


%%.%%%%%%%%%%%%%%%%«%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%01772000 


% Outer Block 


01773000 


%%%%%%%%%%%%%%%%%%«%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%«%%%%< 


k%%%%%01774000 




01775000 



INITIALIZE; 

MAINLOOP: 

WHILE TRUE DO 
BEGIN 

SELECTOPTION; 

CASE FUNCTION OF 

BEGIN 
LOADCTLV: 

OPTODO :« UNASSIGNCTLV; % CTL 

VERIFY FILE; 

LOADCTLFW; 
LOADEW: 

OPTODO := UNASSIGNUNITV; 

VERIFYFILE; 

LOADEVFW; 
VERIFYV: 

VERIFY ONLY :« TRUE; 

VERIFYFILE; 

VERIFYONLY := FALSE; 
END; % CASE FUNCTION OF 



END; % WHILE TRUE 
GRANDXIT : 

SHOW {"« DFAST Program is ENDING »" 
IF CODE. OPEN THEN 

CLOSE ( CODE ) ; 
IF NOT ODTMODE THEN 

CLOSE ( RMT ) ; 
CLOSE (LINE J ; 

END. 



PARAMETER FOR UMR 



% DRIVE PARAMETER FOR UMR 



TRUE) ; 



01776000 
01777000 
01778000 
01779000 
01780000 
01781000 
01782000 
01783000 
01784000 
01785000 

01785500010020004 

01786000 

01787000 

0178800001.005.000 

01788500010020004 

01789000 

0179000001.005.001 
01791000 

01791500010020004 
01792000 

01792500010020004 
01793000 

01794000010020004 
01795000 
01796000 
01797000 

01798000010010001 

01799000 

01800000 

01801000 

01802000 

01803000 

01804000 

01805000 



